Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
my @masterarray = qw(aaa bbb ccc);

print "$_ contains\t". (join ", ", eval "\@$_") . "\n" for @masterarra
+y;

Select or download this

{
    no strict "refs";
    print "$_ contains\t". (join ", ", @$_) . "\n" for @masterarray;
}