Select Code to Download

use strict;
use warnings;
...
close $h1;

print  grep {$_ =~ $match} @a1;

he is man