use Data::Dumper;
...
...
print Dumper %cookies;

##</code><code>##

        my %hash = $cookies{'ID'}->value;
        $username = $hash{'username'};
        $password = $hash{'password'};

##</code><code>##

        my $hashref = $cookies{'ID'}->value;
        $username = $$hashref{'username'};
        $password = $$hashref{'password'};