if($#bids){
  for (my $i = $#bids; $i > 1; $i = 1) {
    ...
  }
}

##</code><code>##

if (@bids > 1){
  for (my $i = 0; $i <= $#bids; $i++) {
    ...
  }
}

##</code><code>##

if (@bids > 1){
  for my $bid (@bids){
    my ($alias, $email, $bid, $time, $add1, $add2, $add3) = readbid($bid);
  }
}

##</code><code>##

  $time = sort ({ int $a <=> int $b } $time);