my @data = map { chomp; $_ } <$fh>;


##</code><code>##

open my $write_fh, '<', 'temp.txt' or die $!;