my $param1 = shift;
my $param2 = shift;
my $param3 = shift;

##</code><code>##

my ($param1, $param2, $param3) = @_;