if you want the number of outputs, you need a loop.

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

untested

                - Ant
                - Some of my best work - (1 2 3)