Select Code to Download

#!/usr/bin/perl
use warnings;
...
close $fh  or die "can't close file:$!";

untie @array_file;