my $m;

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