open (my $file, '<', $ARGV[0]) or die $!; #### open (my $file, '<', "/home/amagana/scripts/lists/list_xx") or die $!; #### my $file = "/home/amagana/scripts/lists/list_xx"
## open (my $file, '<', "/home/amagana/scripts/lists/list_xx") or die $!; ##
## my $file = "/home/amagana/scripts/lists/list_xx"