or download this
my $abstract=shift @{$HASH->{$Title}->{???}}#here I need to access eac
+h single title in order to get the first element of each (anonymous)
+hash
print "<abstract>"."$abstract"."</abstract>\n";
...
my $procedure=pop @{$HASH->{$Title}}#same as before
print "<procedure>"."$procedure"."</procedure>\n";