Select Code to Download

(my $team, my $loc, my $tool, my $amt) = (split /[,]/)[1,2,3,4];

my ($team, $loc, $tool, $amt) = (split /[,]/)[0,1,2,3];

my ($team, $loc, $tool, $amt) = split /[,]/;