Select Code to Download

my @aKeep;
while (my $line = <F1>) {
...
      push @aKeep, $line;  
   }
}

my %hValuesInColumn2;

...
# extracting the keys may not even be necessary
# see first part of this answer.
my @unique_f = keys %hValuesInColumn2;