Select Code to Download

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

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