#! /perl/bin/perl

use strict;
use warnings;

print "Bitte geben Sie den ersten Dateinamen ein: ";
my $file1 = <STDIN>;
chomp $file1;

print "Bitte geben Sie den zweiten Dateinamen ein: ";
my $file2 = <STDIN>;
chomp $file2;

[...evtl weitere Eingaben...]

[...code von zaehler.pl...]
[...code von vergleich.pl...]
[...code von division.pl...]