Select Code to Download

my %data;
my $header = <>;  # first line
...
foreach my $key (sort keys %data) {
    print $data{$key};
}

perl thescript.pl file2.txt >file1.txt