subselect_sort{
my(*array)=@_;
$length=@array;
for($i=0;$i<$length-1;$i++)
{
$min=$i;
for($j=$i+1;$j<$length;$j++)
{
if($array[$j]<$array[$min])
{
$min=$j;
}
if($min!=$i)
{
$temp=$array[$i];
$array[$i]=$array[$min];
$array[$min]=$temp;
}
}
return@array;
}