#!/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;