Help for this page
print "Now processing [$_]\n";
use Data::Dumper; print Dumper \@F; print Dumper \@array;