#!/usr/bin/perl

if ($first >= $last) {
    local($tmp);

    $tmp = $first;
    $first = $last;
    $last = $tmp;
}
