sub horse();
my @horse = (1,2);
for (@horse) { 
  &horse();
  my $kingdom;
}