Help for this page
print Dumper(\@_);
my %logins = shift;
print Dumper(\%logins);
if ( $pass <=> $logins{$username} ) {