Help for this page
#!/usr/bin/perl ... } close OUT; close IN;
use strict; use warnings;
Scalar value @array[0] better written as $array[0]