my $LFName = shift // die "Expected two file names!";
my @lfile = readfile($LFName);
my $RFName = shift // die "Expected *TWO* file names!";
my @rfile = readfile($RFName);