for my $var ( 1,2,3) { 
  my $x =sub {print $var }
}