#!/usr/bin/perl
use warnings;

%database = ("Hath", 12421242, "Guest" , 12341234);

sub menu;
{

    print "Username?------>";
    $username = <>;
    $get_pass = $database{$username};
    print "\nHello $username\n \tPlease enter your Password\n\n";
    $pass = <>;

if ($pass == $get_pass)
    {
print "\n\nACESS GRANTED";

    }
else
    {
print "\n\nACESS DENIED\n\n\n";

    }
}