Try this:

    for my $rec ( sort { $a->[4] <=> $b->[4] } @array ) {
        ## Now say $rec->[4], $rec->[3], etc.
    }
[download]

By the way, that's not an associative array. It's a list of lists (see perllol and perldsc).