See my update above, and implement the advice by applying the following change:

foreach my $filename ( $a, $b ) {
    open my $fh, '<', $filename or die $!;
[download]