#!/usr/bin/perl -w

use strict;

my @A = ( 1 .. 3, 'abc', 'zz', 79, 444, 5 );

for( my $i = 0; $i < @A - 2; $i += 2 ){
	print "[$A[ $i ]-$A[ $i + 1 ]-$A[ $i + 2 ]]";
	}
print "\n";

for my $i ( grep $_ % 2 == 0, 0 .. @A - 3 ){
	print "[$A[ $i ]-$A[ $i + 1 ]-$A[ $i + 2 ]]";
	}
print "\n";

( ',' x ( @A - 1 ) ) =~ m/
	(,)
	(,)(*SKIP)
	(,)
	(?{ print "[$A[ $-[ 1 ] ]-$A[ $-[ 2 ] ]-$A[ $-[ 3 ] ]]" })
#	(?{ local $" = '-'; print "[@A[ @-[ 1 .. 3 ] ]]" })  # same output
#	(?{ local $" = '-'; print "[@A[ $-[ 0 ] .. ( pos ) - 1 ]]" })  # same output
	(*FAIL)
	/x;
print "\n";