perl -e"$h{ $_ }{1} = { 1 .. 4 } for 1..1e6; <>"