Help for this page
for $i ( 0 .. $page_counter-1 ) { print " ###### HI $i #### \n"; ... } } }
open my $wfh, '>', 'file1.ext' or die "can't open file for writing: $!"; ... or die "can't open file for reading: $!"; my @aref = decode_json(<$fh>);