Select Code to Download

perl -le '$data=[{ data => 1 },{a => 2, b => 3}];print $$data[0]->{dat
+a}'
1

 perl -wle '$data=[{ data => 1 },{a => 2, b => 3}];print $$data[1]->{c
+}'
Use of uninitialized value in print at -e line 1.