my @dieses = qw (aaaa bbbbbb cccccc ddddddddddddd);
my $xyz    = \@dieses;