foreach my $a (0..$#_) {
      $fields[$a]= shift; }
[download]

Avoid using $a and $b as variables, give them other names ;) .
perlvar -> $a, $b