my $sth = $dbh->prepare("SELECT SSN, FIRST_NAME, LAST_NAME, 
  FROM ZZ_INFO ORDER BY LAST_NAME");
unless ($sth->execute()) { print "$DBI::errstr \n"; };
 
my %hrcd; 
my $i = 0; 
while (my @row = $sth->fetchrow_array) {
  my $ssn = (defined $row[0]) ? $row[0] : '';
  my $fn  = (defined $row[1]) ? $row[1] : '';
  my $ln  = (defined $row[2]) ? $row[2] : '';
  $hrcd{$i}= [$ssn, $ln, $fn]; 
  $i++;
} 
 
print "<table><tr><th>Name</th></tr><tr><td><select name=\"SSN\" size=\"1\">\n";
for my $j (sort keys %hrcd) { 
  print "<option value=\"$hrcd{$j}->[0]\">$hrcd{$j}->[1], $hrcd{$j}->[2]</option> \n";
} 
print "</select></td></tr></table>\n";