my @names = ( "Mark K.", "Bob H", "Kurt", "Mary Kay K",
"Mary Jo Z.",  "Mary Jo" );

foreach ( @names ) {

  my ($f_name) = (split)[0];
  my ($l_name) = (split)[-1];
  print "$f_name \n";

}