Select Code to Download

use strict;
use warnings;
...
        print "No password for $_, sorry\n";
    }
}

$ perl script.pl
moritz
Password from moritz is 'secret'
someone else
No password for someone else, sorry