my @array = qw[
binary_app=/usr/bin/true
config_file=/etc/inetd.conf
MOD_NAME="ABC"
];;

print qq[<input type=text name="$_->[0]" value="$_->[1]">\n] 
    for map{ [ split '=' ] } @array;;

<input type=text name="binary_app" value="/usr/bin/true">
<input type=text name="config_file" value="/etc/inetd.conf">
<input type=text name="MOD_NAME" value=""ABC"">