my @props = ( '-color' => COLOR,
              '-justify' => 'left',
              '-etc' => 'etc' );

my $button = $root->Button( -text => 'Sample',
                            @props )->pack();