I always number my song titles, so this solution doesn't exactly address your problem, but it's close enough.

This will populate a hash:

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

And this will retrieve the data back, unsorted:

foreach my $artist (keys %collection) {
   print "$artist:\n";
   foreach my $album (keys %{$collection{$artist}}) {
      print "\t$album:\n\t\t";
      print join("\n\t\t", @{$collection{$artist}{$album}}), "\n";
   }
}
[download]

Hope this helps, Jeff

UPDATE: oops, yes isotope - that's what I meant.