#!/usr/bin/perl -w

use strict;
use CGI;

my $Style =<<STYLE;
<!--
     .header{background:#6BDBF7;}
     .a{background:#D0F2FA;}
     .b{background:#E0F6FB;}
-->
STYLE

my $cgi = new CGI;
my @employee = qw(ID FNAME LNAME TITLE E-Mail);
my %employee = (
    '1087' => [ qw( Anatoliy Urbanskiy 77 ana@yahoo.com ) ],
    '1032' => [ qw( Frederik Amstrong 12 fred@earthlink.net ) ],
    '1112' => [ qw( Ivan Mazepa 10 ivan@hotmail.com ) ],
);
my %descriptor = (
    FNAME => '0',
    LNAME => '1',
    TITLE => '2',
    EMAIL => '3', );
my %title = (
    1  => 'COO',
    10 => 'COT',
    12 => 'Manager',
    77 => 'Software engineer',
);
my $class = "a";
print $cgi->header(),
	  $cgi->start_html(-title=>'Employee Info',
			           -style=>{-code=>$Style},);
print qq(<TABLE border="1" cellpadding="2" cellspacing="1" width=80%>
	<TR class="header">);
for ( @employee ) {
	print qq(<TD align="center"><B>$_</B></TD>);
}
print qq(</TR>);
for ( keys %employee )
{
    print qq(<TR class="$class">
        <TD>$_</TD>
        <TD>$employee{$_}[ $descriptor{'FNAME'} ]</TD>
        <TD>$employee{$_}[$descriptor{'LNAME'}]</TD>
        <TD>$title{$employee{$_}[ $descriptor{'TITLE'} ]}</TD>
        <TD>$employee{$_}[ $descriptor{'EMAIL'} ]</TD>
    </TR>);
	$class = ($class eq "a" ? "b" : "a");
}
print qq(</TABLE>);
print $cgi->end_html();
exit(0);

SEE OUTPUT

# What is unusual in this program?
     Usually, data like this is sorted.
Next Step