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