while (<FILE2>) {
  push @col, $_ =~ m/^(\S+)/  unless ...;
}