Скрипт на perl для телефонной книги

#!/usr/bin/perl
use warnings;
use strict;
 
sub nomer {
            my ($phone)=@_;
            my @text1=();
            if (defined $phone)
                {
                my $sth=$dbh->prepare ("SELECT * FROM base WHERE nomer='$phone'");
                $sth->execute();
                my $count=0;
                while(my $row=$sth->fetchrow_arrayref())
                    {
                    push(@text1,"<tr>");
 
                    while ($count < 7)
                        {
                          if (defined($row->[$count]) )
                            {
                                push(@text1,"<td>".(&text::ToSmall($row->[$count]))."</td>");
                            }
                            else
                                {
                                 push(@text1,"<td> </td>");
                                }
 
                    $count++;
                        }
                push (@text1,"</tr>");
                return @text1;
                }
                return @text1;
        $sth->finish();
 
                } else {
                        push (@text1,"по вашему запросу ничего не найдено");
                        return @text1;
                         }
                return @text1;
                };
my @text=&nomer($phone);
 
print '<table SELLSPACING=2 CELLPADDING=4 ALIGN=left BORDER=1>';
print '<TR>';
print '<TD>';
print '</TD>';
print '</TR>';
print "@text";
print '</tables>';