Select Code to Download

my %stocks = (^DJI =>{sec_label => $main->AddLabel( stuff...),
                     current_label => #current price of stock,
...
                     change_label => #price change,
                     pctchg_label => #percent change}
              )

$stocks{$key}{arrow_label}->Text( $var );