open the file
...
while(<USERFILE>) {
    my($A,$B,$C,$D,$E,$F,$G,$H,$I,$J,$K) = split(/\|/);
    print qq(<TR>);
    print qq(<TD>$A</TD>
             <TD>$B</TD>
             <TD>$C</TD>
             <TD>$D</TD>
             <TD>$E</TD>
             <TD>$F</TD>
             <TD>$G</TD>
             <TD>$H</TD>
             <TD>$I</TD>
             <TD>$J</TD>);
print qq(<TD><INPUT TYPE="radio" NAME="edit" VALUE="$K">
         </TD></TR> );
}