open (INDATA, "master.job.list") or die "Couldn't read file $!\n";
    
        while (<INDATA>) {
                @temp = split/:/;
                push @data, [ @temp ];
        }

close (INDATA);

##</code><code>##

$clientname_temp = "";
 
foreach $line (@data) {
        $clientname = $$line[0];
        $jobnumber = $$line[1];
        $description = $$line[2];
    
        if ($clientname_temp ne $clientname) {
        print "<TR bgcolor='#ffffcc'><TD COLSPAN=4 bgcolor='#ffffcc'><B>$clientname</B></TD></TR>\n$
        print "<TR><TD>EDIT DELETE</TD><TD><B>Job Number</B> = $jobnumber</TD><TD><B>Description</B$
        }

        else {
        print "<TR><TD>EDIT DELETE</TD><TD><B>Job Number</B> = $jobnumber</TD><TD><B>Description</B$
        }

        $clientname_temp = $clientname; 
}