open (my $file, '<', "/home/amagana/scripts/lists/list_xx") or die $!;