...

open (IN, "</home/nerone/Desktop/lig/1xmj.pl") || die "impossibile aprire il file";

my ( @hydrophobic , @residue );

while ( my $r = <DATA> )
{
  ...
}