Select Code to Download

for my $rec_hr ( @$VAR1 )
{
    ...
}

for my $rec_hr ( @$VAR1 )
{
    my @rec = @{$rec_hr}{'ID','TEXT','VALUE'};
}

for my $rec_hr ( @$VAR1 )
{
...
    push @array_records, \@rec;
    print "(@rec)\n";
}