Select Code to Download

use warnings;
use strict;
...
file728,010390010010,doc_01,paragraph,11
file729,010390010010,doc_01,paragraph,12
file730,010390010010,doc_01,paragraph,12

file730

while (<DATA>){
    chomp; 
    push @stash, [split /,/];
}