Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
open my $fhB, '<', 'FileB.txt' or die $!;
say for map { chomp; $hash{$_} } grep /\S/, <$fhB>;
close $fhB;

Select or download this
```
zzzzz
bbbbb
xxxxx
```