simonwilliams, you wrote,
if($#bids){
for (my $i = $#bids; $i > 1; $i = 1) {
...
}
}
Where I'm pretty sure that what you meant was,
if (@bids > 1){
for (my $i = 0; $i <= $#bids; $i++) {
...
}
}
But, many of us would prefer to write this as:
if (@bids > 1){
for my $bid (@bids){
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = readbid($b
+id);
}
}
You also wrote,
$time = sort ({ int $a <=> int $b } $time);
This will not do anything. $time is not a LIST. See perldoc -f sort;
By the way, you'll get better answers if you work harder on distilling your question to one essential issue. Hope all this helps, and welcome to the Monastery.
mkmcconn