Meh. This is elegant:

my $content = get(...);


my @accum = ( undef, (\%normals) x 5, \%powers );

for ( split /\n/, $content )
{
    my @data = split;
    $accum[$_]{$data[$_]}++ for 1 .. 6;
}
[download]