Select Code to Download

use strict; 
my $evaled = 0; 
...
somesub(); 
a("the"); 
somesub();

sub a { 
  my($var) = @_; 
...
              # access to the my variables for
              # each calling of "a"
}