my $pin = 1234;
my $guthaben = 655.36;

say "Geben Sie ihre PIN ein:";
my $pin_eingabe = <STDIN>

if $pin == $pin_eingabe {
    print "Geben Sie den Betrag ein, den Sie abheben wollen:\n";
    my $auszahlung = <STDIN>
    if ($auszahlung <= $guthaben) {
        say "Nehmen Sie die $auszahlung Euro mit...";
        $guthaben = $guthaben - $auszahlung;
    } else {
        print "So viel haben Sie nicht auf dem Konto\n";
    }
} else {
    say "PIN falsch, Karte wird einbehalten";
}