perl -w -e "$a[0]=[1];%hash=@{$a[0]}"