Select Code to Download

my ($key, $value) = split /\s/, $line;
next LINE if not $key;
$hash{$key} = $value;
chomp (%hash);

use strict;
use warnings;
...
     }
close $fh;
print Dumper(\%hash);