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