#!/usr/bin/perl
 
use Data::Dumper;
use strict;
 
my @a = (50, 60, 12, 45, 101, 18, 1, 67);
#my @a = (1, 12, 18, 45, 50, 60, 67, 101);
#@a = reverse(@a);
 
my $i;
my $cmp = 0;
my $mv = 0;
for(my $j = 1; $j < scalar(@a); $j++)
{
  my $key = $a[$j];
  $mv++;
  $i = $j - 1;
  while($i >= 0 && ($cmp++) && $a[$i] > $key)
  {
    $a[$i + 1] = $a[$i];
    $mv++;
    $i = $i - 1;
  }
  $a[$i + 1] = $key;
  $mv++;
}
print Dumper(@a);
 
print "keycnt=", scalar(@a), " moves=", $mv, " keycmp=", $cmp, $/;