Select Code to Download

my %new_pass;
while (<F1>) {
...
  my @f = split(':', $_);
  $new_pass{$f[0]} = $f[2];
}

while (<F2>) {
  chomp;
...
  }
  print F3 join(':', @f), "\n";
}