open(file, "<$words") or die print "$!\n"; 
@pwd_data=; 
$total=@pwd_data; 
close file; ### Записываем все пароли в один массив 
open(file, "<$users") or die print "$!\n"; 
@users_data=; 
$total*=@users_data; 
close file; ### Записываем всех пользователей в один массив

open(file, "<$words") or die print "$!\n"; 
@pwd_data=<file>;
$total=@pwd_data; 
close file; ### Записываем все пароли в один массив 
open(file, "<$users") or die print "$!\n"; 
@users_data=<file>; 
$total*=@users_data; 
close file; ### Записываем всех пользователей в один массив