perldoc -f sort
for example:
@by_minie = sort { $table{$b}->[2] <=> $table{$a}->[2] } keys %table;