sub zen {
    my $art=shift;
    my $motorcycle=$art->('of');
    print $$motorcycle.'='.(caller(0))[3];
}

zen sub{return \'maintainance' if $_[0]=='of'};