*apple_proc = sub { 
		my $item = shift; 
		apple_wash($item);
		apple_core($item);
		apple_pulp($item);
	    };
# same for bananas here.