you can do something like this:

 
my $t1 = "`animals`";
my $sql1 = "select * from ".$t1." where id = ?";

my $sth = $dbh->prepare($sql1) or die $DBI::errstr;
          $sth->execute(3) or die $DBI::errstr;
          my @ary = $sth->fetchrow_array();
          $sth->finish;
print @ary,"\n";
[download]