my %meta = (
"Author"=>"J K Rolling",
"title","Harry Potter and the Philosopher's Stone"
);
Sorts: Author, title

<meta content="J K Rolling" name="Author" />
<meta content="Harry Potter and the Philosopher's Stone" name="title" />


my %meta = (
"author"=>"J K Rolling",
"Title","Harry Potter and the Philosopher's Stone"
);
Sorts: Title, author

<meta content="Harry Potter and the Philosopher's Stone" name="Title" />
<meta content="J K Rolling" name="author" />

##</code><code>##

my @meta = (
["Author"=>"J K Rolling"],
["title","Harry Potter and the Philosopher's Stone"]
);
Sorts: Author, title

<meta content="J K Rolling" name="Author" />
<meta content="Harry Potter and the Philosopher's Stone" name="title" />


my @meta = (
["author"=>"J K Rolling"],
["Title","Harry Potter and the Philosopher's Stone"]
);
Sorts: author, Title

<meta content="J K Rolling" name="author" />
<meta content="Harry Potter and the Philosopher's Stone" name="Title" />

##</code><code>##

for my $m ( @meta ) {
  my $m_el = HTML::Element->new('meta');
     $m_el->attr('name',$m->[0]);
     $m_el->attr('content',$m->[1]);
     $head->push_content($m_el);
}