foreach my $who (@list) { 
    #my $sub = "\$ln =~ s/scrooge (& donald)/$who \$1/g;";
    print "$who\n";
    foreach my $ln (@lines) {
        #eval $sub;
        #print "$ln\n";
        print $ln =~ s/scrooge (& donald)/$who $1/r, "\n";
    }
    print "\n";
}