my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[0]);

##</code><code>##

my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[1]); ----- what ever number the bidder is

##</code><code>##


for (my $i = $#bids; $i > 1; $i = 1) {
       my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_b
+id($bids[$i]);
$time = sort ({ int $a <=> int $b } $time);