So, jeffa wanted me to look at this...so, I say the answer to part one is $foo{'c'} == 1. jeffa is my witness that I didn't run the code to figure it out.

How about

@foo{@a} = reverse @a;
[download]

for the second part.

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"