perl -le '@foo = qw( f o o ); print @foo->[0]'     # Frankenstyle
perl -le '@foo = qw( f o o ); print @foo->[0,1,2]' # Frankenslice?
perl -le '@foo = qw( f o o ); print @foo[0,1,2]'   # Working slice.

#### And a demo of context...
perl -wle 'sub c {print wantarray ? "list" : "scalar" } my @foo; @foo = c;'
perl -wle 'sub c {print wantarray ? "list" : "scalar" } my @foo; $foo[0] = c;'
perl -wle 'sub c {print wantarray ? "list" : "scalar" } my @foo; @foo[0,1] = c;'
# And Frankenstyle....
perl -wle 'sub c {print wantarray ? "list" : "scalar" } my @foo; @foo->[0] = c;'