while (<DATA>)
{
  my ($key, $val) = split / = /;
  push @{$data{$key}}, $val;
}