#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd pp /;
my @foo = 1..3;
dd\@foo;
@foo = 7..9;
dd\@foo;
@foo = 4;
dd\@foo;
@foo = 2;
dd\@foo;
@foo = ( 4, @foo );
dd\@foo;
__END__
[1, 2, 3]
[7, 8, 9]
[4]
[2]
[4, 2]


##</code><code>##

$ perl beans
Global symbol "$index" requires explicit package name at beans line 11.
Execution of beans aborted due to compilation errors.