open my $w, '>', 'Result.txt' or die "Cannot open the file Result.txt: $!";