while (<>) { push @wanted, $_ if +(split)[0] eq "Hello" }