Hi Kev,
You can make an anonymous array reference using square brackets:

my %myhash;
my @str = qw( 7 house network_name 4 6);
my $netName = $str[2];
if (defined($myhash{$netName})) { #if found
 my $arrayRef = $myhash{$netName};
 $arrayRef->[0]++; # increment numbers
 $arrayRef->[1]++;
} else {
 # must be new so ad new data to hash
 $myhash{ $netName } = [ @str[3..4] ]
}
[download]