my %opt;
my @vals = qw(title artist album);
my @opts = map { "$_=s" => \$opt{$_} } @vals;