Select Code to Download

my @sorted = sort {$a->[30] <=> $b->[30] || $a->[0] <=> $b->[0] || $a-
+>[1] <=> $b->[1]} @$ref;

my ($file, $sfile) = @_;
        my $csv = Text::CSV->new({binary => 1, decode_utf8 => 1, auto_
+diag => 1, allow_loose_quotes => 1});
        open(my $data, '<:encoding(utf8)', $file) or die "Could not op
+en '$file' $!\n";
...
                        warn "Line could not be parsed: $!",$csv->erro
+r_diag;
                }
        }