for my $tab ( 1 .. 3 ) {
    my @array = ( 0 .. $tab);
    printf "Array ref: %s\n", \@array;
}
__END__
Array ref: ARRAY(0x826acf4)
Array ref: ARRAY(0x826acf4)
Array ref: ARRAY(0x826acf4)

##</code><code>##

for my $value ( @values ) {
    my @array = frobinate($value);
    foreach my $bit (@array) {
        drill($bit);
    }
}