my @abc;
for my $m qw/a b c/ {
    push @abc, sub { $m };
}
print $_->() . "\n" for @abc;