Also, just for future debugging purposes, you might want to print out more than the second element of the array. Doing something like:

 my @a=$h{'one'};
 print join( ' // ', @a );
[download]

might have shown you something like:

ARRAY(0x80e1310)
[download]

which would hopefully be a giant red flag :-)

Originally posted as a Categorized Answer.