my @sorted_array = map {$_->[0]} 
                   sort { $a->[1] cmp $b->[1] 
                       || $a->[2] <=> $b->[2] 
                       || $a->[3] <=> $b->[3] 
                       || $a->[4] <=> $b->[4] }
                   @to_be_sorted;