my $html = qq {<SELECT NAME="partNumber" SIZE="1" >};
foreach my $key (sort keys %{$HASHDATAFROMLIBRARYFILE{TIMING}}) {
    #my $p = \%{$rpt{$HASHDATAFROMLIBRARYFILE}{TIMING}{$key}};

    warn "\n Here we are $key ";
    # just to make sure it is executed

    $text .= qq {
	$html .= qq {
		<OPTION VALUE='$keys' @{[ (
						( defined($rpt{PART_NUMBER}) ) 
						  && ($FORM{CellName} eq $keys ) 
						 ) ? 'SELECTED' 
						   : '' 
				       ]} >$keys</OPTION>
	};
}