Select Code to Download

foreach my $line(keys %results){

print Dump($post) if $results{$line} == 1;
}

my $f1 = "/home/hellena/Desktop/data.txt";
my $f2 = "/home/hellena/Desktop/ini.txt";
...

}