for my $entry (@table)
{
  print join(' | ',@$entry)."\n";
}