$_ = 'foo';
while (<>)
 for (grep {/$_/} @foo) {
  for (map {ord($_)} split //,$_) {
   while (--$h{$_}>10) {print $_}  
  }
  s/a/b/g;
  print 'middle' . $_;
 }
 print 'outer' . $_;
}
print $_;