Select Code to Download

$ perl -Mwarnings -e '%h = { foo => [ 1 .. 3] }'
Reference found where even-sized list expected at -e line 1.

my %hash = (
              key1 => [a1_ref,a1_ref],
              key2 => [a3_ref,a4_ref]
           );