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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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