# tweak one
my @munged;
my $munged = lc() if ($uclc eq 'lc');
$munged    = uc() if ($uclc eq 'uc');
for(@in) {
   push @munged, $munged;
   }

# tweak two
my @munged;
my $munged = lc if ($uclc eq 'lc');
$munged    = uc if ($uclc eq 'uc');
for(@in) {
   push @munged, $munged();
   }