#!/usr/bin/perl -wT use strict; my @arr_name = (10,11,12,13); my %hash; for my $d (1..@arr_name) { my @newarr = ($d..5); # example data $hash{"new_arr_$d"} = \@newarr; # a new array containing new data # with the name "new_arr_$d" } for my $key (keys %hash) { print "$key => ", join(',', @{$hash{$key}}), "\n"; } =OUTPUT new_arr_3 => 3,4,5 new_arr_4 => 4,5 new_arr_1 => 1,2,3,4,5 new_arr_2 => 2,3,4,5