my %hash= ( key1 => scalar lc $value ); #### if( boolean( integer($scale) < integer(scalar getMaxScale()) ) || boolean( scalar isExempt() ) ) { Report( string( scalar getName() ), float( (integer($base)+integer($bonus)) / integer($count) ), ); } #### if( boolean( integer($scale) < integer(scalar getMaxScale()) ) || boolean( scalar isExempt() ) ) { Report( partOfList( string( scalar getName() ) ), partOfList( float( (integer($base)+integer($bonus)) / integer($count) ) ), ); }