Select Code to Download

use warnings;
use strict;
...
my @arr = ('1', '2', '3');

... do stuff with the variables ...

use warnings;
use strict;
...
    our ($str1, $str2, $str3);
    our @arr = ('1', '2', '3');
}