for my $key ( sort keys %hash ) {

    print "Current key is\t$key\n";

    my $xcount = "@{ $hash{ $key } }" =~ tr/X//;

    my $totalcount = @{ $hash{ $key } };

    print "$k\t$totalcount\t$xcount\n";
    }
[download]