@status_label = ( "abc", "def" ); #### my $label1 = $frame_top->Label( -textvariable => \$status_label[0] ) ->grid( -row => 1, -column => 1 ); #### my $label1 = $frame_top->Label( -textvariable => \$status_label[0] )