Select Code to Download

qx{cut -d"," -f17 $file | sort | uniq > $tmpfile};
open my $fh1, "<:encoding(utf-8)","$tmpfile" or die "$tmpfile: $!";
...
    push @names, split (/\n/);
}
$fh1->close;

my @names = qx{cut -d"," -f17 $file | sort | uniq};