<%= if ( scalar(keys %discount_terms_hash) ) { $OUT .= ''; $OUT .= 'Prepayment for'; $OUT .= ''; $OUT .= ''; $OUT .= qq(1 month\n); foreach ( keys %discount_terms_hash ) { $selected = $discount_term eq $_ ? ' SELECTED' : ''; $OUT .= qq($_ months\n); } $OUT .= ''; $OUT .= ''; $OUT .= ''; } $OUT .= ''; %>