push @{$hr->{a}}, 'hello';
print "${$hr->{a}}[0]\n";