#!usr/bin/local/perl

%passwords = {"Matt", "s1k1d52", "scuzzy", "2ab928", "Marky", "s8291s",
"Jeb", "jeb23"};

delete $passwords{"jeb"};

if(exists $passwords{"Matt"}){
   print("$passwords{"Matt"} is my password.");
}

if(defined $passwords{"scuzzy"}){
   print($passwords{"scuzzy"} . " IS defined!");
}

print("%passwords are everyone's passwords!");

##</code><code>##

Bareword found where operator expected at passhash.pl line 9, near ""$passwords{"Matt"
        (Missing operator before Matt?)
String found where operator expected at passhash.pl line 9, near "Matt"} is my password.""
syntax error at passhash.pl line 10, near "}"
Missing right curly or square bracket at passhash.pl line 17, at end of line
Execution of passhash.pl aborted due to compilation errors.