# Sorting numbers with an unamed subroutine@sorted_numbers= sort {$a <=> $b} (3,4,1,2);print "The sorted numbers are: @sorted_numbers", ".\n";