foreach (@test) {
  $_ =~ s/"//g;
  my (@color) = $change > 0 ? [ 0, 0, 255 ] : [ 255, 0, 0 ];
        $main->AddLabel(
            -text       => $arrow,
            -font       => $arrow_font,
            -left       => 55,
            -foreground => @color, 
            -background => COLOR,
            -top        => $h,
        );

        # current security price
        $main->AddLabel(
            -text       => pack( "A10", $current ),
            -font       => $sec_font,
            -left       => 70,
            -top        => $h,
            -background => COLOR,
        );

        # change in security price
        $main->AddLabel(
            -text       => pack( "A10", $change ),
            -font       => $sec_font,
            -left       => 130,
            -top        => $h,
            -background => COLOR,
        );
}