my %inc = map { my ($v) = $content =~ /inc_$_=(.*?)\n/; $_ => $v }
              qw(albums genres artists songs ratings year);