@arr = lcss_all('gghdagahkk', 'akakdadghgh');
use Data::Dumper; print Dumper(\@arr);

__END__

$VAR1 = [
          [
            'da',
            3,
            4
          ],
          [
            'gh',
            1,
            7
          ],
          [
            'gh',
            1,
            9
          ]
        ];