my $tags = [ "arc", "tall" ];
...
$widget->configure(-tags => $tags);

##</code><code>##

$tags = [ "arc", "tall" ];
build_widget($frame, $tags);
...
sub build_widget {
  my ($frame, $tags) = @_;
  ...
  $widget->configure(-tags => $tags);
}