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";
}