my $ab = [1,2,5,7,4];
print sort { $a <=> $b } @$ab;