#!/opt/local/bin/perl

use DBI;
use DBD::mysql;
use Data::Dumper;;
use strict;
my %names=();
my $driver = "mysql";
my $database = "employees";
my $dsn = "DBI:$driver:database=$database";
my $userid = "hungrysumo";
my $password = "";

my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;


my $sth = $dbh->prepare("SELECT *
                        FROM employees"
                        );
$sth->execute() or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
while (my @row = $sth->fetchrow()) {
$names{$row[0]}{$row[1]} = [$row[2],$row[3],$row[4],$row[5]];#print Dumper \%names;
}
$sth->finish();

for my $key (keys %names){
#print "Employee Number:$key\n"; 
for my $key2(keys $names{$key}){
#print "Birth Date:$key2\n";
print "First Name:".$names{$key}{$key2}[0], "\n";
#print "Last Name:".$names{$key}{$key2}[1], "\n";
#print "Gender:".$names{$key}{$key2}[2], "\n";
#print "Hire Date:",$names{$key}{$key2}[3],"\n";

if ($names{$key}{$key2}[0] = 'Gay'){
print "Last Name:".$names{$key}{$key2}[1]."\n";
}
}
}