in reply to insert value into an array

I think is enough with this:

push @{$arr[1]->[1]},222;

cheers

turo
perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'