my $refonesarr = map '1 1', 0..99;

for (0..170000){
push( @{ $data{$k}}->[$_]}, $refonesarray )
}

print $k," 161:  ",join (',',@${ $data{$k}->[161]}),$/;