my (@delete, @userid, @username);
$delete[$subcounter] = param("Delete");
$userid[$subcounter] = param("userid");
$username[$subcounter] = param("username");

my $othercount = 1;
while (@personal[$othercount])
{
if ($personal[$othercount] eq $username[$othercount])
{
$personal[$othercount] = '';
}
else
{
}
$othercount++;
}
my $str = '';
$str = join('require user', $personal[1], $personal[2], $personal[3], $personal[4], $personal[5], $personal[6], $personal[7], $personal[8], $personal[9], $personal[10]);
open FILE, ">.htaccess";
print FILE $str;
close FILE;