Untested but I think this would work.

# Presume @rows is array of $csv->getline() rows
my @rows;

# Sort on column 1 then column 44.
# Assume numeric data.
my @sorted_rows = sort { 
    $a->[0]  <=> $b->[0]
        ||
    $a->[43] <=> $b->[43]
    } @rows;
[download]