If you did anything wrong, it was to neglect to say that you've got a plain array that you're printing out the variable using Data::Dumper. :-)

To account for this, simply take the code I posted before and replace @$VAR1 with @tss: :

for my $rec_hr ( @tss )
{
    my @rec = @{$rec_hr}{'ID','TEXT','VALUE'};
    push @array_records, \@rec;
    print "(@rec)\n";
}
[download]