#!/usr/bin/perl -w

my $str = "cowboycatdog";

chomp(my @list = sort { length($b) <=> length($a) } <DATA>);
for my $word (@list){
    my $tmp = $str;
    next unless $tmp =~ s/$word//;
    my @results;
    push @results, $word;
    my @rem = grep ! /^$word$/, @list;
    for my $w (@rem){
        push @results, $w if $tmp =~ s/$w//;
    }
    next if length($tmp);
    push @out, \@results;
}

print "'$str' has the following anagrams:\n\n",
    map "@$_\n", @out;

__DATA__
cowboy
cow
boy
cat
do
dog