Select Code to Download

use strict;
use warnings;
...
... then initialize the rest of your vars ...

... read the log file and accumulate the counts for each variable ...

my $msgformat = "You have obtained %d %s.\n";
if ($shotgobt) { printf $msgformat, $shotgobt, "shotguns") };
if ($armorobt) { printf $msgformat, $armorobt, "Armors") };

... do the same type of thing for the rest of the messages ...

my %stats = (
  'clips'           => 6,
...
  'backpacks'       => 1,
  'berserk packs'   => 1,
);

my $msgformat = "You have obtained %d %s.\n";
for my $stat (keys %stats) {
  printf $msgformat, $stats{$stat}, $stat;
}