use strict; my @typedefs = qw(do re me fa so la ti do); while (my $line = ) { chomp($line); if(grep/$line/, @typedefs){ print "$line\n"; ## perform various actions here if line match } } __DATA__ do me a favour will you