#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $complex = {
    a => [ 1, 2, 3 ],
    b => [ { x => 1, y => 2, z => 3 }, 'alpha', [qw(even more nested )] ],
    c => { one => [qw(more value)] }
};

# a function result
print "@{[ eval 'Data::Dumper->Dump([$complex ],[q{complex} ])' ]}";

# a list
print "@{[ ('aa'..'at') ]}\n";

# a list generated by a Regex
print "@{[ 'hello Perl!' =~ /./g ]}\n";

# a list from a filehandle
{
    local $/;
    print "@{[ <DATA> ]}\n";
}

# (update) or simply
print "@{[ <DATA> ]}\n";


# a list from globbing
print "@{[ <*.pm> ]}\n";
__DATA__
This
is
text
from
DATA