use warnings; use strict; my @aaa = qw (11 22 33); my @bbb = qw (44 55 66); my @ccc = qw (77 88 99); my @masterarray = ([aaa => \@aaa], [bbb => \@bbb], [ccc => \@ccc]); print $$_[0], ": ", @{$$_[1]}, "\n" for @masterarray;