Select Code to Download

my $result = $dbh->sql("SELECT * FROM $qry WHERE group_name='Procureme
+nt'");
foreach (@$result) 
{
   print @$_;
}

Can't use string ("1") as an ARRAY ref while "strict refs" in use at U
+:\scripts\odbc1.pl line 15.