if ($_ =~ /\.txt/){
        chomp $_;
        my ($artist, $song_title) = split '-', $_, 3;
        $length{$artist}{$artist} = $artist;
        $length{$artist}{$song_title} = $song_title;
    print "$_"; # print this file/directory's name
    
    }