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