if ( $type eq 'apple' ) {
    *func = sub { &apple_wash; &apple_core; &apple_pulp; };
  }

##</code><code>##

    &func for @items;