use strict;
use warnings;

package bla;

my ($x,$y)=(42,43);

require export_var;

do {
  export_var->import  my ($x,$y) ;
  
  print $x,$y;
} for 1..3;

print $x,$y;