The OP wants to print all the lines except "Java" but nobody seems to have noticed that the logic is reversed and will print only "Java." Doing

while ( <FH> )
{
    print unless /^Java\z/;
}
[download]

should suffice. The task could be done as one-liner.

johngg@aleatico:~$ cat langs
Fortran
JavaScript
Cobol
Go
Java
Haskell
johngg@aleatico:~$ perl -ne 'print unless /^Java\z/' langs
Fortran
JavaScript
Cobol
Go
Haskell
[download]

I hope this is helpful.

Update: Added JavaScript and updated regex as per choroba's comment.