Select Code to Download

my %hash = @{ $diary_data[0] };

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

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

my %hash = %{ $diary_data[0] };