Select Code to Download

sub mergeSort( \@arrayRef ) {

C:\test>perl -c junk92.pl
Illegal character in prototype for main::mergeSort : \@arrayRef at jun
+k92.pl line 27.
...
Scalar value @groupA[$i] better written as $groupA[$i] at junk92.pl li
+ne 73.
Scalar value @groupB[$j] better written as $groupB[$j] at junk92.pl li
+ne 78.
junk92.pl syntax OK

    my ( @groupA, @groupB, $dataRef ) = @_;