my $tag   = @{$tagstruct}[0];
# versus
my $tag   = $tagstruct->[0];