my @refs; for (1..10) { push @refs, \my $foo; } print "$_\n" for @refs; #### SCALAR(0x18317d8) SCALAR(0x23605c) SCALAR(0x236098) SCALAR(0x236d88) SCALAR(0x1831838) SCALAR(0x1831808) SCALAR(0x1831868) SCALAR(0x1831880) SCALAR(0x1831898) SCALAR(0x18318b0)