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

##</code><code>##

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

##</code><code>##

use Test::More;
use Data::Dumper;

sub func1 {
	my $left=$_[0];
	my $right=$_[1];
	goto \&Data::Dumper::Dumper;
}

sub func2 {
	my $left = shift @_;
	my $right = shift @_;
	goto \&Data::Dumper::Dumper;
}

my @args = qw( a b );

# Are they the same??
is(
	func1(@args),
	func2(@args),
	"they're the same!",
);

done_testing();