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