die "Usage: $0 file1 file2" unless @ARGV == 2;
...
for (@ARGV) {
    process_file($_);
}
...
sub process_file {
    my ($filename) = @_;

    open my $input_fh, '<', $filename or die "Can't open '$filename': $!";
    ...
}