use strict;
use warnings;

sub first_last_map(&&&@)
{
	my $code  = shift;
	my $first_code = shift;
	my $last_code  = shift;

	($first_code->($_[0]),
	 (map { $code->($_) } @_[ 1 .. $#_ - 1]),
	 $last_code->($_[-1])
 	)
}

print for first_last_map(
	sub { "<li>$_[0]</li>\n" },
	sub { "<li class=\"first\">$_[0]</li>\n" },
	sub { "<li class=\"last\">$_[0]</li>\n" },
	qw( alpha beta gamma delta ));

##</code><code>##

print for first_last_map(
	{ "<li>$_[0]</li>\n" },
	{ "<li class=\"first\">$_[0]</li>\n" },
	{ "<li class=\"last\">$_[0]</li>\n" },
	qw( alpha beta gamma delta ));