my($chosen_variant) = grep { $_=>[0] eq $pref->[0] } @$variants; my $charset = $chosen_variant->[4]; my $lang = $chosen_variant->[5]; $r->content_type("text/html; charset=$charset"); $r->header_out("Content-Language", $lang);