for my $m_id_attr_id (keys %details) {
  my ($m_id, $attr_id) = split $;, $m_id_attr_id;
  print DETAILS "$m_id\t$attr_id\t$details{$m_id_attr_id}\n";
}