Select Code to Download

sub lcs {
  my($x, $y) = @_;
...
  } 
  return $v[length($x) - 1][length($y) - 1];
}

sub matchss {
  my($ss, $str) = @_;
...
  } 
  pop @state;
}

sub lcscount {
  my($x, $y) = @_;
...
  );
  $count;
}

  $count += $seen{$_} * matchss($_, $y) for keys %seen;