perl -w -e "$a[0]=[1,2];%hash=$a[0]"