if ($name =~ /Header/) { push @{$H_TEST{"HEADER"}}, $iSheet; }
if ($name =~ /ALO/)    { push @{$H_TEST{"DATA"}},   $iSheet; }
...
foreach my $iSheet (sort @{$H_TEST{$tag}}) {