#!/usr/bin/perl
use strict;
use warnings;
my $VAR1 = {
          'A2M' => [
                     'C972Y',
                     'A423W'
                   ],
          'A4GALT' => [
                        'W261X',
                        'P251L',
                        'P251S',
                        'A219V'
                     ]
        };

my $numKeys = scalar(keys %{$VAR1});
print "gene total x\n";
foreach my $key (keys %{$VAR1}){
  my @values = @{$VAR1->{$key}};
  my $numValues = scalar(@values);
  my $numXs = 0;
  $numXs += ($_ =~ /X/g)?1:0 foreach(@values);
  print "$key $numValues $numXs\n";
}
exit(0);


##</code><code>##


gene total x
A2M 2 0
A4GALT 4 1