foreach my $mp3_file (@cdrom_mp3s) {
  chomp $mp3_file;
  my $mp3 = MP3::Tag->new($mp3_file);
  $mp3->getTags;
  if (exists $mp3->{ID3v1}) {
	my $id3v1 = $mp3->{ID3v1};
	#print STDOUT $id3v1->artist," : ", $id3v1->song,"\n";
	my $track_song = $id3v1->track."-".$id3v1->song;
	$artist_mp3{$id3v1->artist}{$id3v1->album}++;
  }
}

##</code><code>##

push (@$artist_mp3{$id3v1->artist}{$id3v1->album}, id3v1->song);