oops... This is better: CACHE: { $db = dbref($ctable) or last CACHE; my $tname = $db->name(); $cache = 1; + $weight = ($weight == int $weight) ? $weight : int($weight + 1); %cline = ( weight => $weight, origin => $origin, country => $country, zip => $zip, shipmode => $opt->{service}, ); Comments?