my $string = (+book +dog +cat);
print join(',', $string), "\n";