Select Code to Download

#!/usr/bin/perl

...
    @_;
  return $ans[0];
}

Individual calls to mycmp()...
Same package:      a b => a b
...
Use of uninitialized value in string comparison (cmp) at ./testsort3.p
+l line 77.
(Snip repeated error)
Different package: b c a => b c a