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