Select Code to Download

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

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

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

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

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