$file = "test.txt";

print "Enter the username you want to remove from the information.txt file\n";
$user = <STDIN>;

 open( FILE, $file) or die "cannot open > test.txt: $!";
while (<FILE>)
{
chomp;
@array = <FILE>;

@a = grep (!/^[$user]/, @array);

print @a;

}