if ($name =~ /Header/) { $H_TEST{"HEADER"}{$iSheet} = 1; }
if ($name =~ /ALO/)    { $H_TEST{"DATA"}{$iSheet}   = 1; }
...
foreach (sort keys %{$H_TEST{$tag}}) {
   my $iSheet = 0 + $_;