our $var1;
our $var2;

sub get_var{
   my ($self, $var_name) = @_;
   no strict 'refs';
   return ${"$var_name"};
}