Help for this page
open OUT, ">${new_file}.meta" or die "DIAF OUT: $!"; for (my $page = 0; $page < scalar @meta; ++$page) { for (my $line = 0; $line < scalar @{$meta[$page]}; ++$line) { ... return 1; }
0:0/36 0:1/36 ... 0:19/20 0:20/21 0:21/22