You can get a lot of good advice on complex data structures by reading perldoc perlreftut and perldoc perldsc. Here are some clues:

@str = qw( 7 house network_name 4 6); #<--example of data

if ($myhash{$str[2]}{$str[0]){  
  # if network_name is found increment the values of 3 and 4 
  ($myhash{$str[2]}{$str[0]}[3])++;
  ($myhash{$str[2]}{$str[0]}[4])++;
} else { 
  # must be new so ad new data to hash 
  $myhash{$str[2]}{$str[0]} = [ @str ];
}
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me