use strict;
use warnings;
use feature 'say';

package export_var;
use PadWalker qw[var_name];
use Data::Dump;

my %value = (
  '$x'=>1,
  '$y'=>2,
 );


sub import {
  my $pkg=shift;
  for my $var (@_) {
   $var = $value{ var_name(1,\$var) };
 }
}