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