Select Code to Download

@data_sorted_by_three_fields = sort { 
    $a->[2] <=> $b->[2]
 || $a->[0] <=> $b->[0] 
 || $a->[4] <=> $b->[4]
} @data;