my @refs;
for (1..10) {
   push @refs, \my $foo;
}
print "$_\n" for @refs;