my $pass = <STDIN>;
my $user = <STDIN>;
my @salt = ('a'..'z', 'A'..'Z');
my $passc = crypt($pass, @salt[int(rand(@salt))] . @salt[int(rand(@salt))]);

open my $fh, '>pass.pwd' or die $!;

print $fh "$userñ$pass";
close($fh);

##</code><code>##


my $user = <STDIN>;
my $pass = <STDIN>;
my $bolead = 0;

open my $fh, '<pass.pwd' or die $!;

while(<$fh>){
    my ($one, $two) = split(/\ñ/, $_);

    if($one eq $user){
    $bolead = crypt($pass, $two) eq $two;
    }
}


if($bolead == 1){
  print "MATCH";
}else{
  print "NO MATCH";
}