Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
use strict;
use warnings;
my %match;
while (<DATA>) {
chomp;
$match{$_}++
}
while (<>) {
my ($lookup, $junk) = split(/:/, $_, 2);
print "Matched \'$lookup\' at line $.\n" if exists $match{$lookup};
}
__DATA__
some
stuff
to
match
against
a:
b:
c:
d:
against:
e:
f:
g:
5000000:records later
to: