c:\@Work\Perl\monks>perl -wMstrict -le
"use constant Y => 'bar';
 ;;
 my @callbacks;
 ;;
 my $z = 9;
 ;;
 for (my $x = 1;  $x < 4;  $x++) {
   push @callbacks, [ \&foo, $x, Y, $z-- ];
   }
 ;;
 $z = 'zero';
 ;;
 $_->[0]->(@$_[ 1 .. $#$_ ]) for @callbacks;
 ;;
 sub foo { print qq{@_}; }
"
1 bar 9
2 bar 8
3 bar 7