Select Code to Download

#!/usr/bin/perl

print "reading 'ansvarig_vardenhet_utf8.txt'\n";

open(WIN, "icd-10-codes.txt");

while($line = <WIN>) {

@columns = split(/\t/, $line);

#print "$columns[1]";

  foreach my $value (@columns) {
    #print "$value\n"
}

close(WIN);

print "reading 'ansvarig_vardenhet_utf8.txt'\n";
open(IN, "female1.txt");
while($line = <IN>) {

%col = split(/ /, $line);

#print "$columns[1]\n";

foreach my $val (%col) {

if($val == $columns[0]){
   $val =~ s/$val/$columns[1]/g;

    print IN ">>$val\n";

close(IN);

I am a beginner in PERL.

#!/usr/bin/perl
use strict;
...
close $out_fh
    or warn "Cannot close '$out_path': $!\nSome data may not have been
+ written.";