#!/usr/local/bin/perl
# read the array from standard input one item at a time
print ("Enter the array to sort, one item at a time.\n");
print ("Enter an empty line to quit.\n");
$count = 1;
$inputline = ;
chop ($inputline);
while ($inputline ne "") {
@array[$count-1] = $inputline;
$count++;
$inputline = ;
chop ($inputline);
}
# now sort the array
$count = 1;
while ($count < @array) {
$x = 1;
while ($x < @array) {
if ($array[$x - 1] gt $array[$x]) {
@array[$x-1,$x] = @array[$x,$x-1];
}
$x++;
}
$count++;
}
print ("@array\n");