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