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

print "\n Total Number of files \n\n";
foreach(keys %dir_file_counts) {
   print "\n \t $_ => ".$dir_file_counts{$_};
}

__PRINT___

 Total Number of files

         xbags =>        416
         apr =>         28
         apam =>          1
         asrs =>        431
         aast =>        181
         xpept =>          8
         xbank =>        178
         aprot =>         28