Here is how you can know if you're on the right track :)

my @wantedOutput = qw/ ro sham bo /;
my @input = qw/ ro sham bo /;
my @output = LCS( @input );
use Data::Dump qw/ dd /;
dd( \@wantedOutput, \@output );
[download]