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


##</code><code>##

open FH, "<$_" or die $!;
    print "output for file: $_\n";
    while (my $line = <FH>) {
        print $line;
		chomp $line;
		if ($line =~ /\.txt/){
	my $artist;
my ($album, $minutes, $seconds, $genre) = split ':', $line, 4;
		$length{$artist}{album} = $album;
		$length{$artist}{minutes} = $minutes;
		$length{$artist}{seconds} = $seconds;
		$length{$artist}{genre} = $genre;
		print $album, "\n";
		}