perl -e"sub x{ goto $_[0] } bill: x( 'bill' ) "

perl -e"sub x{ goto $_[0] } bill: x( 'john' ); john: goto bill;"