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