$sth = $dbh->prepare($sql);
$sth->execute() || die $sth->errstr;

my @line;
while ($pointer = $sth->fetchrow_hashref)
{
   push @line, $pointer->{'LINE'};
   $ins =$pointer->{'INS#'};
   $number =$pointer->{'NUMBER#'};

   if($line_type)
   {        
      $result = "<td><a href=found.html?line=$line>Found $line</td><br>";
      exit;
   }
   else
   {
      print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0; URL=notfound.html\"> \n";
      exit;
   }
}
      
print @line;
#
# or 
# foreach my $line (@line)
# {
#    print "$line\n";
# }