sub fancy_map {
  my ($opt, $list) = @_;
  map {
    if (ref($_)) {
      fancy_map($opt, $_);
    }
    else {
      my $before = $opt->{'before'} ? $opt->{'before'}.' ' : '';
      my $after  = $opt->{'after'}  ? ' '.$opt->{'after'}  : '';
      $_ = $before.$_.$after;
    }
  } @{$list};
}

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my @list = qw(foo bar baz boff quux);
 print qq{original: @list};
 ;;
 my @spookified = spooky_aaad(\@list);
 print qq{returned: @spookified};
 print qq{original: @list};
 ;;
 sub spooky_aaad {
   my ($array_ref) = @_;
   ;;
   return
     map { $_ =~ s{ \A (.) (.*) \z }{\U$2\E$1}xms;  $_; } @$array_ref;
   }
"
original: foo bar baz boff quux
returned: OOf ARb AZb OFFb UUXq
original: OOf ARb AZb OFFb UUXq