#!/usr/bin/perl -l

use strict;
use warnings;

BEGIN {
    my $foo;
    sub foo () { $foo }
    for my $n (qw/a b c d e f/) {
        no strict 'refs';
        *$n = sub () { warn $n; $foo++ };
    }
}

my $arr=(a,b,c,d,e,f);
print foo, $arr;
    
__END__