Shell Programming and Scripting

my $counter = 0;

my @array0 = ("some", "stuff");

my @array$counter = ("some", "stuff");

$ cat script.pl                                                                                                                                                                                                            
#!/usr/bin/env perl                                                                                                                                                                                                                          
                                                                                                                                                                                                                                             
use strict;                                                                                                                                                                                                                                  
use warnings;                                                                                                                                                                                                                                
                                                                                                                                                                                                                                             
{
        my $counter = 0;

        my $name = 'array' . $counter;

        no strict;
        no warnings;
        @{$name} = qw<some stuff>;

        printf qq|%s\n|, join q|,|, @array0;
}
$ perl script.pl
some,stuff