use Text::CSV_XS qw( csv );

my @sorted = sort {
    $a->[5] cmp $b->[5] ||
    $a->[4] cmp $b->[4]
    } @{csv (in => "sorted.csv")};
csv (out => "sorted.csv", in => \@sorted);