Select Code to Download

open my $fh, '<', 'sample.data' or die $!;
while (<$fh>) {
...
    # assign to hash
}
close $fh;