Select Code to Download

my %data;
open my $FH2, '<', '/tmp/fileread' or
...
  $data{join(':',@cols[1,2])} = $cols[0];
}
close($FH2);

open my $FH6, '>', '/tmp/tst.txt' or
  die "unable to open output file: $!";
...
  print $FH6 join(',',$data{$key},@keys) . "\n";
}
close ( $FH6 );