Select Code to Download

$ perl -le '$x={y=>[1]}; print @$x->{y}'       
Not an ARRAY reference at -e line 1.
$ perl -le '$x={y=>[1]}; print @{$x->{y}}'
1