my $sth = $dbh->prepare(qq{SELECT * FROM Prediction WHERE Prediction_id = '$keyword' OR Target_id = '$keyword' Use = '$keyword'  });                                                                                                                                                                                    
$sth->execute()
        or die "Couldn't execute statement: " . $sth->errstr;                                                                                                                                                                                    
my @new_array;                                                                                                                                                                                    
while (my $ary_ref = $sth->fetchrow_arrayref() )        {
        my $delim = "\n";
        for (my $i=0; $i<@{$ary_ref}; $i++)     {
        push @new_array, "$ary_ref->[$i]\n";
        }
        print "\n";
}                                                                                                                                                                                    
print @new_array;