#!/usr/bin/perl -w
use strict;

my %dir_file_counts = ( xbags => 416,
                     apr => 28,
                     apam =>  1,
                     asrs =>  431,
                     aast => 181,
                     xpept => 8,
                     xbank => 178,
                     aprot => 28 );

my $total_count = 0;

print "\n Total Number of files \n\n";
foreach(keys %dir_file_counts) {
  $total_count += $dir_file_counts{$_};
    printf "%12s => %5s\n",
        $_,
        $dir_file_counts{$_},
}

printf "%12s => %5s\n", "Grand Total", $total_count;