my $thing = "Coca" . "Cola";

##</code><code>##

my ($left,$right)=@_;

##</code><code>##

my $left=$_[0];
my $right=$_[1];

##</code><code>##

my $left = shift @_;
my $right = shift @_;

##</code><code>##

#
# NEVER ASSUME!!!
my $right = pop @_;
my $left = pop @_;
#
# You may not get the result you are after!!