for $key (sort keys %hashc) 
{
    print "$key: \n";
    for $ele (keys %{$hash{$key}})
    {
		# my $p=0;
       # #if ($ele{'ScreenName'} =~ /A/){
		   # $p++;
	   # } else {
		   # #print "\n $ele{'ScreenName'} --- $p \n";
		   # $p=0;
	   # }
	   print " $ele: \t\t" . $hash{$key}->{$ele} . "\n";
    }
}