for(sort sort_sub @foo) ...

sub sort_sub { 
  $a <=> $b;
}