my @source = ('bob', 'joe');
my @dest = map { $_ eq 'bob' ? ucfirst($_) : $_ } @source;
print "@source\n";
print "@dest\n";
#Output:
#bob joe
#Bob joe