$mw_text->add('Label', -text => $label_str)->pack;

##</code><code>##

foreach $text_item (@$ref_text_array) {
	chomp($text_item);
	$text_str .= $text_item . "\n";
}

##</code><code>##

	$mw_text->add('Text',
			-scrollbars => "e",
			-width => 80,
			-height => 35,
			-text   => $text_str
			)->pack();