sub {

my $word_limit = $_[0];
my $phrase = $_[1];

my @split = split / /, $phrase;

if ($#split <= $word_limit) {
return {
Description => $phrase,
Description_Rest => ''
}
} else {

my (@back,@back_rest);
for (my $i = 0; $i < $word_limit; $i++) {
push @back, $split[$i];
}
for (my $i = $word_limit; $i < $#split; $i++) {
push @back_rest, $split[$i];
}


return {
Description => join(" ", @back) . "...",
Description_Rest => join(" ", @back_rest)
}

}

}