Select Code to Download

use warnings;
use strict;
...
$ScreenNameCount{$hash{$_}{ScreenName}}++ foreach keys %hash;

print Dumper \%ScreenNameCount;

$VAR1 = {
          'A' => 3,
          'B' => 2
        };