use Data::Dumper;

use strict;
use warnings;

my @players;
#my %player; 
for my $index (1 .. 10){
	my %player; 
    	$player{'a'}=$index;
    	push (@players, \%player);
}

print Dumper(\@players);