sub BuildMMList {
    local ( $style ) = @_;
    local ( $ret, $idx );
    local ( *LIST );
    local ( $line, @data, $key, %user, @ch );

    $ret = '';
    $idx = 0;
    open( LIST, "<$MM_FILE" ) || &Error( "internal", "Missing page list" );
    while ( $line = <LIST> ) {
        # see if it's a page.
        next if ( $line =~ /^#/ );
        next if ( $line =~ /^\s+$/ );
        $idx++;

        # remove white space.
        $line =~ s/^\s*//;
        $line =~ s/\s*$//;

        # display the table row
        if ( $style eq 'delete' ) {
            # !EMBEDDED HTML!
            $ret .= <<EOF;
    <TR>
      <TD>
        <INPUT NAME="page$idx" TYPE="hidden" VALUE="$line">
        <INPUT NAME="action$idx" TYPE="checkbox" VALUE="delete">
        <CODE>$line<\/CODE>
      </TD>
    </TR>
EOF
        } else {
            # !EMBEDDED HTML!
            $ret .= <<EOF;
        <OPTION>$line
EOF
        }
    }

    close( LIST );
    $_ = $ret;
}

Data File Example:
default1``default2``default3