while(1)
{
        print "Please enter your first name\n";
        chomp ($fname =<STDIN>);
           {
                last;
           }
        print "Please enter your last name\n";
        chomp ($lname =<STDIN>);
           {
                last;
           }
        print "Please enter a password\n";
        chomp ($password =<STDIN>);
           {
                last;
           }
        # important: store the passwords in %passwords
        $passwords{$fname} = $password;

        print "Please enter 'done' or hit your return key\n";
        chomp ($ending =<STDIN>);
        if ($ending eq '\n' or 'done')
           {
                last;
           }
}