#!/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";