# warning: untested
my %collection;
while(<ALBUMS>) {
   my ($artist, $album, $song) = split;
   push @{$collection{$artist}{$album}}, $song;
}