my $count = 0; for(@{$results{$addr}}) { $count += @{$results{$addr}{$_}} } print "$count outputs\n";