And now for something completely disgusting.

my %hash;
{
  local $; = ":";
  $hash{ @{$_}{qw(Computer
                  Bulletin)},
             $_->{Product}||"",
             $_->{Status} } = $_ for @{GetQueryTable('all_records_for_
+report', 138)};
}
[download]