#!/usr/bin/perl

use strict;
use warnings;

my @passwords = qw/toor pass2 xyz/;

PASSWD: for (1..3) {
    print "Passwort eingeben: ";
    chomp(my $pw = <STDIN>);
    foreach my $valid (@passwords) {
        last PASSWD if ($pw eq $valid);
    }
    die "Eingabe ist nur 3 mal möglich.\n" if $_ == 3;
}

print "Passwort wurde akzeptiert.\n";