#!/usr/bin/perl


use strict;

my $i;
my $j;
my $temp;
my $minpos;

my @ar=qw;

print "BEFORE  @ar\n";

for($i=0;  $i< $#ar   ; $i++)
{

	$minpos=$i;
	for($j=$i+1  ;  $j   <= $#ar  ; $j++)
	{
		if ($ar[$j] lt $ar[$minpos])
		{
			$minpos=$j;
		}
	}
	
	print "DEBUG minpos= $minpos  array= @ar\n";
	
	if ($i != $minpos)
	{
		$temp=$ar[$i];
		$ar[$i]=$ar[$minpos];
		$ar[$minpos]=$temp;
	}
}

print "AFTER   @ar\n";