use strict;
use warnings;

my @lines = (
"Once upon a time",
"scrooge & donald",
"went for a long walk"
);
my @list = ("huey", "dewey", "louis");

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 "\n";
}