Help for this page

Select Code to Download

Select or download this

use strict;
use strict;
...
while ( my $line = <$file1> ) {
    print $line if $file2{$line};
}

Select or download this
```
dog.txt
ARF
...
meow
arf
police
```