my %names;
$names{$linename.$counter} = "use pricedb;" ;