foreach ( @names ) {
  my @name_parts = split;
  pop @name_parts if $name_parts[-1] =~ /^[a-zA-Z]\.?$/; # throw last name away
  my $f_name = join ' ', @name_parts;
  print "$f_name\n";
}