Select Code to Download

while (my @row = $sth->fetchrow()) {
    $names{$row[0]}{$row[1]} = [$row[2],$row[3],$row[4],$row[5]];
}

while (my @row = $sth->fetchrow())
{
    push @{ $names{ $fields[0] }{ $fields[1] } }, [ @fields[2 .. 5] ];
}

use strict;
use warnings;
...
        }
    }
}

14:21 >perl 1541_SoPW.pl
Found: Gay Divorcee
Found: Gay Deceiver

14:22 >

my $sth = $dbh->prepare("SELECT *
                        FROM employees
                        WHERE firstname = 'Gay'"
                       );