Select Code to Download

my $dir = '/Path/to/a/data/directory';

...
    }
}

    while ( my $line = <$FH> ) {
        next if $line =~ /^#/ || $line !~ /\S/;
...
        $hash{ $file }{ $key } = \@values;
    }