use warnings; use strict; use Data::Dump::Streamer; my @arr=(["one" => [1,11]], ["two"=> [2,22]]); push @{$arr[1][1]}, 222; Dump (\@arr);