my %array_references;
for ( 1 .. 10 ) {
    my $array_name = sprintf("array_%02d",$_);
    $array_references{$array_name} = [];
}