Global symbol "$dbh" requires explicit package name at comb1.pl line 1
+3.
Global symbol "$dbh" requires explicit package name at comb1.pl line 1
+4.
Global symbol "@row" requires explicit package name at comb1.pl line 1
+6.
Global symbol "$values" requires explicit package name at comb1.pl lin
+e 18.
Global symbol "@row" requires explicit package name at comb1.pl line 1
+8.
Global symbol "@row" requires explicit package name at comb1.pl line 1
+9.
[download]

These are telling you you need to use my and declare these things...

For instance:

$dbh = DBI -> connect("DBI:Oracle:".$var1,$var2,$var3) || die ("not connected:DBI::errstr");

should be

my $dbh = DBI -> connect("DBI:Oracle:".$var1,$var2,$var3) || die ("not connected:DBI::errstr");


And what are you doing with this?:

while(@row=$sth->fetchrow_array())       #Fetch the number of rows
{                                        #returned by the query
   $values=$row[0];
   print "@row\n";
}
[download]

I'm not too familiar w/ DBI, but it looks to me like are storing each row of the query results into @row , then storing first element of @row (which needs to be declared w/ my first) into $values (which also needs a my), but are not using $values for anything. Why did you do this?