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