my $entry=$mw->Entry(-textvariable=>\$string)->pack();

##</code><code>##

@array = split (' ', $string);