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