#!/usr/bin/perl -w
use strict;

my $mails = 'mails.txt'; # Файл с мылами
my $pass = 'pass.txt'; # Файл с паролями

open(MAILS, $mails) || die("can't open $mails\n");
open (PASS, $pass) || die("can't open $pass\n");
open(OUT, ">>mp.txt");

while(my $mail = <MAILS>) {
    my $pwd = <PASS>; chomp($pwd); chomp($mail);
    print OUT my $mp = $mail.";".$pwd."\n"; }
close(MAILS); close(PASS); close(OUT);