Hi.

The code

while (@rows) {
    my %row_data;      # a hash for my data list
    $row_data{FILES} = shift @rows;
    push( @loop_data, \%row_data );
}
[download]

is needlessly destructive to @rows. It can be simplified to

for my $row (@rows) {
  push( @loop_data, {FILES => $row} );
}
[download]

or

for (@rows) {
  push( @loop_data, {FILES => $_} );
}
[download]

or even

@loop_data = map { {FILES => $_) } @rows;
[download]