#!/usr/bin/perl -w
use strict;
(sub{print map{$_->()}@_[3,1,2,0,4]})->(sub{no strict;q;read!;},sub{(sub{
map{$_->()}@_[2,1,0]})->(sub{'t '},sub{(sub{$_[0]->(),'s'})->(sub {'u'})},
sub {'t','r'})},sub{(sub{map{$_->()," "}@_;})->(sub{lc ref sub{'', reverse
'J A P H !'}},sub{++($_="yot")},sub{(sub{@_[1,4,3,6,2,5,0]})->(split('',
"thnva'e"))})},sub{(sub {map{$_->()}@_[1,0]})->(sub{(sub{$_[0]->(), q;'t ;
})->(sub{'n'})},sub{no strict;Do})},sub{$/})

##</code><code>##

(
	sub {
		print "@_"
	}
) -> (
  1, 2, 3
);

##</code><code>##

(
	sub {
		print map {
			$_->()
		} @_;
	}
) -> ( 
	sub{ 'Just ' },
	sub{ 'another ' },
	sub{ 'Perl ' },
	sub{ 'hacker,' },
);

##</code><code>##

(
	sub {
		print map {
			$_->()
		} @_[1,0,3,2];
	}
) -> ( 
	sub{ 'another ' },
	sub{ 'Just ' },
	sub{ 'hacker,' },
	sub{ 'Perl ' },
);

##</code><code>##

(
	sub {
		print map {	$_->() } @_	}
) -> ( 
	
	sub {
  	(
	  	sub { map { $_->() } @_ }
		) -> (
			sub { 'J' },
			sub { 'A' }
		)
	},
	
	sub {
  	(
		  sub {	map { $_->() } @_ }
		) -> (
			sub { 'P' },
			sub { 'H', '!' }
		)
	}
);

##</code><code>##

lc ref
	sub {
		'', reverse 'J A P H !'
	}