my $name1 = SF->new ('GrandFather', [1, 2, 3]);
my $name2 = SF->new (' and Almut',  [4, 5, 6]);

my $catStr = $name1 . $name2;

use Data::Dumper;
print Dumper $catStr;