#! /usr/bin/perl -w
use strict;
use Data::Dumper;

my @fields = qw/ inc_albums inc_genres /;
my %record;

my $content = "inc_albums=asdf\n";
foreach my $field (@fields) {

    ($record{$field}) = $content=~/${field}=(.*?)\n/;
}

print Dumper(\%record);

##</code><code>##

$VAR1 = {
          'inc_genres' => undef,
          'inc_albums' => 'asdf'
        };