my $filename= $_[0].$_[1];
open my $peunter, '<', $filename
    or die "Couldn't open '$filename': $!";
...