#!/usr/bin/perl

use strict;
use warnings;
use vars;

my @array_references;

for(0..9) {
    $array_references[$_] = [1..100];
}

for(0..9) {
    my $aname = sprintf('array%02d', $_);
    vars->import("\@$aname");
    @$aname = @{$array_references[$_]};
}

print "@array01";