Help for this page
#!/usr/bin/perl use warnings; ... close $fh or die "can't close file:$!"; untie @array_file;