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";
		}