#!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!");