for (1..10)
{
    $last = $_; $first ||= $last;
}
print "$first..$last\n";