$b = 0;
while ( @slog = $sth->fetchrow_array ) {
    $b++;
    $info = param($b);
    ($a,$b) = split(/=/, $info);
    push(@info,$b)
}

##</code><code>##

if (defined($info{$b})) { die "Duplicate reference"; }
$info{$b} = $b;