#!/usr/bin/perl use warnings; use strict; my @aaa = qw (11 22 33); my @bbb = qw (44 55 66); my @ccc = qw (77 88 99); my @masterarray = qw(aaa bbb ccc); print "$_ contains\t". (join ", ", eval "\@$_") . "\n" for @masterarray;