##
...
use Data::Dumper;
print Dumper \%alphabet;
####
$VAR1 = {
'SCALAR(0x783790)' => [
'1',
'2',
'3',
'4'
],
'SCALAR(0x783e50)' => [
'9',
'8',
'7',
'6'
]
};