print DETAILS (join "\t", split $;, $details{$_}), "\n" for keys %details;