Select Code to Download

my @data = qw( foo bar baz moo mar );

...
foreach $name (@data) {
    print "$name\n";
}

1st - 0 - foo
5th - 4 - mar
...
baz
moo
mar

use Data::Dumper;
my @data = qw( foo bar baz moo mar );
print(Dumper(\@data));

$VAR1 = [
          'foo',
...
          'moo',
          'mar'
        ];