#!/usr/bin/perl
$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++
}