for $prev (@matches) {
next match if $prev eq $_;
}
+ print "$_\n";
+ flush;
push @matches, $_;
}
match: while(<WP>) {
for $prev (@matches) {
next match if $prev eq $_;
}
+ print "$_\n";
+ flush;
push @matches, $_;
}
-
-for $match (@matches) {
- print "$match\n";
-}