Use the sort command and the numerical comparison operator (<=>).

my @sorted = sort { $a->[$col] <=> $b->[$col] } @origarray;
[download]

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1