package gen_var;
use base 'Exporter';
my @exported_symbols;
my @variables = qw(one two three);
my $counter = 1;
our @EXPORT_OK;

foreach my $variable (@variables) {
   eval "our \$$variable = $counter; push \@exported_symbols, \$$variable";
   $counter++;
}

my $export_vars = join(', ', @exported_symbols);
eval "\@EXPORT_OK = ($export_vars)";
1;

##</code><code>##

use gen_var($one);
print $one;