package gen_var;
use banana;
my @variables = qw(one two three);
my $counter = 1;

foreach my $variable (@variables) {
   no strict;
   *$variable = banana->new($counter++)
}

1;

##</code><code>##

use gen_var;

$one->get_counter();