$ perl -le 'my $a; my @n = (3,2,1); print for sort {$::a<=>$::b} @n;'
1
2
3