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