Forum PHP.pl

Dzień dobry (IMG:http://forum.php.pl/style_emoticons/default/smile.gif) Mam probelem i nie wiem jak go rozwiazac (IMG:http://forum.php.pl/style_emoticons/default/smile.gif)

PERL + MYSQL:

my $show='Show tables from stad';
my $stht = $dbh->prepare($show);
$stht->execute();
my $sho;
while (my $ref = $stht->fetchrow_hashref()) {
$sho = "$ref->{'0'}";
}
print $sho;
czemu to nie działa (IMG:http://forum.php.pl/style_emoticons/default/questionmark.gif)