while(($key, $value) = each(%hservers)) { $hserver{$keyX}->[0]->[1] ="some value"; $hserver{$keyX}->[1]->[0]->[0] ="1"; #secondpart $hserver{$keyX}->[1]->[0]->[1] =1; #secondpart $hserver{$keyX}->[1]->[0]->[2] ="parX"; #secondpart }