sub sort { sort { $a <=> $b } @_ } @a=qw(1 12 11 102); @a = &sort (@a); print "@a";' Output: 1 11 12 102