my ($smallest, $largest) = sort {$a <=> $b} ($first, $second);