#!/usr/bin/perl
use warnings;
use strict;

my %race;

$race{"humans"}->{"bases"}->[0]->{"soldiers"} = "35";
$race{"humans"}->{"bases"}->[1]->{"soldiers"} = "32";
$race{"humans"}->{"bases"}->[2]->{"soldiers"} = "53";
$race{"humans"}->{"bases"}->[3]->{"soldiers"} = "123";

$race{"humans"}->{"bases"}->[0]->{"catapults"} = "1";
$race{"humans"}->{"bases"}->[1]->{"catapults"} = "3";
$race{"humans"}->{"bases"}->[2]->{"catapults"} = "0";
$race{"humans"}->{"bases"}->[3]->{"catapults"} = "15";

my $i = 0;

foreach (@{$race{"humans"}->{"bases"}}) {
print "Humans have ".$race{"humans"}{"bases"}[$i]{"soldiers"}."soldiers and ".$race{"humans"}{"bases"}[$i]{"catapults"}." catapults in base $i \n";
$i++;
}