open my $fh, '<', 'list.txt' or die "Can't open list.txt: $!";