Greetings SmokeyB,

I was bored (and I think I'm coming down with a fever, so coding is always fun) so I coded up some stuff for you. It's not good code, but it may help you get in the direction you're looking for. I made the assumption that "into tables" means "into HTML tables".

#!/usr/bin/perl
use strict;
use warnings;

my %foo = (
  Info => [
    {
      MakeEng   => 1,
      MakeFre   => 2,
      ModelEng  => 3,
      ModelFre  => 4,
      ModelYear => 5,
    },
    {
      MakeEng   => 6,
      MakeFre   => 7,
      ModelEng  => 8,
      ModelFre  => 9,
      ModelYear => 0,
    },
  ],
  VIN => {
    VINStatus    => 'active',
    VechileDT    => 'on',
  },
);

foreach my $table (keys %foo) {
  print '<h3>', $table, '</h3>', "\n";
  print "<table>\n";
  if (ref $foo{$table} eq 'HASH') {
    print '<tr><td>', $_, '</td><td>', $foo{$table}{$_}, "</td></tr>\n
+"
      foreach (keys %{$foo{$table}});
  } elsif (ref $foo{$table} eq 'ARRAY') {
    print '<tr>';
    print '<td>', $_, '</td>' foreach (keys %{$foo{$table}[0]});
    print "<tr>\n";
    foreach my $row (@{$foo{$table}}) {
      print '<tr>';
      print '<td>', $_, '</td>' foreach (values %{$row});
      print "<tr>\n";
    }
  } else {
    print "<tr><td>Badness. Something unexpected in %foo</td></tr>\n";
  }
  print "</table>\n\n";
}

exit;
[download]

I don't know the extent of your project, but if you're looking for something long-term that's going to map into some kind of web reporting thing, you should definately take a look at HTML::Template. Using that, you could just muck around a little with your %foo and then just pass that into a template. Magic then happens.

gryphon
code('Perl') || die;