#!/usr/bin/perl

package my_module;
require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/@my_var change_var/;

our @my_var = (1..10);

sub change_var{
	@my_var = (20..30);
}
1; 

##</code><code>##

use my_module;

print "@my_var\n"; # prints 1..10
change_var();
print "@my_var\n"; # prints 20..30
system("perl 2.pl"); # calling another script
exit;

##</code><code>##

use my_module;

print "@my_var\n"; # prints 1..10 but expecting it to be 20..30