Select Code to Download

    ...
    return SF->new (
...
                     $lhs->{list}, $rhs->{list}
               ]
           );

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

use Data::Dumper;
print Dumper $catStr;

$VAR1 = bless( {
                 'str' => 'GrandFather and Almut',
...
                             6
                           ]
               }, 'SF' );

$VAR1 = bless( {
                 'str' => 'GrandFatherName is ',
...
                             3
                           ]
               }, 'SF' );