#!/usr/bin/perl -wl

use strict;

my @A = qw( d c b a );

print "@A";

for my $i ( 0 .. @A - 2 ){
	for my $j ( $i .. @A - 2 ){
		print ' ' x $i . "<$A[ $j ]> cmp <$A[ $j + 1 ]>";
		}
	}

print "-" x 5;

( ',' x ( @A - 1 ) ) =~ m/
	.
	.*?
	(?{
		print ' ' x $-[0] . "<$A[ $+[0] - 1 ]> cmp <$A[ $+[0] ]>";
		})
	(*FAIL)
	/x;

print "-" x 5;

my $jmin;

( ',' x ( @A - 1 ) ) =~ m/
	.
	(?{ $jmin = $+[0] - 1; })
	.*?
	(?{
		$A[ $jmin ] gt $A[ $+[0] ] and
		$jmin = $+[0];
		})
	$
	(?{ $jmin != $-[0] and
		( $A[ $-[0] ], $A[ $jmin ] ) =
		  reverse
		( $A[ $-[0] ], $A[ $jmin ] );
		print "--@A";
		})
	(*FAIL)
	/x;

print "@A";