open (my $file, '<', $ARGV[0]) or die $!;

##</code><code>##

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

##</code><code>##

my $file = "/home/amagana/scripts/lists/list_xx"