Select Code to Download

#!/usr/bin/perl

...
foreach my $line ( keys %line ) {
    print "$line\n";
}

...
foreach  my $line ( keys %line  )
...

}
...