I think this will be my reflex to homework question... obfuscation! :-)

print$_=>$/foreach(keys%{{map{$_=>1}@{[(1)x3=>(2)x1=>(3)x3]}}});
[download]

Enjoy!

--
Casey
   I am a superhero.