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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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