print Dumper(\@_);

##</code><code>##

    my %logins = shift;

##</code><code>##

print Dumper(\%logins);

##</code><code>##

    if ( $pass <=> $logins{$username} ) {