#!usr/bin/local/perl
use strict;
use warnings;

my %passwords = (Matt   => "s1k1d52",
                 scuzzy => "2ab928",
                 Marky  => "s8291s",
                 Jeb    => "jeb23",
                 );

delete $passwords{jeb};

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

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

print "\nEveryone's passwords:\n";
while (my ($key,$value) = each %passwords) {
    print "$key => $value\n";
}