Select Code to Download

sub max_v_local {
  local (*a, *b) = @_;
...
   }
  @result;
  }

my @answer = max_v_local( \@mylist, \@yourlist );

sub test_xml_writer {
    my( @array, $aref );
...
    $w->end();
    $io->close();
    }

Variable "@a" is not imported at ./test.pl line 112.
Variable "@a" is not imported at ./test.pl line 112.
...
Global symbol "@a" requires explicit package name at ./test.pl line 11
+6.
Global symbol "@a" requires explicit package name at ./test.pl line 11
+6.
Execution of ./test.pl aborted due to compilation errors.