#!/usr/bin/perl -w

use strict;

my %usernameInfo;
my $password = "phaEdrus3";
my $username = "Tony Barbieri";
$usernameInfo{$username} = $password;

if ( $password eq $usernameInfo{$username} ) {
        print "match\n";
} else {
        print "no match\n";
}