my $label1 = $frame_top->Label( -textvariable => \$status_label[0] )