Select Code to Download

use strict;
use warnings;
...
print Dumper LCCOS(\@array1,\@array1);
print Dumper LCCOS(\@array2,\@array4);
print Dumper LCCOS(\@array5,\@array6);

####################################
sub LCCOS {
...
  }
  return $current_largest;
}   ##LCCOS