package gen_var;
use banana;
my @variables = qw(one two three);
my $counter = 1;
foreach my $variable (@variables) {
   no strict;
   my $ns_var = caller() .'::'.$variable;
   *$ns_var = \banana->new($counter++);
}

1;