title: Get all the word enter in text widget to an array
body: <p>I am new to Tk/Perl. Below is the simple GUI interface i create using tk/perl. </p>
  
  <p><a href="https://i.stack.imgur.com/7yrep.png" rel="nofollow noreferrer">GUI INTERFACE</a></p>
  
  <p>Below is part of the code create this GUI.</p>
  
  <pre><code>$f2_label=$f_frame_top0-&gt;Label(-text=&gt;"File",-font=&gt;[-family=&gt;'MS Sans Serif',-size=&gt;9,-weight=&gt;'bold',-underline=&gt;0],-justify=&gt;'left')-&gt;pack(-side=&gt;'left',-anchor=&gt;'w',-padx=&gt;1,-pady=&gt;1,);
  $f2_entry=$f_frame_top0-&gt;Entry(-width=&gt;50,-state=&gt;"normal")-&gt;pack(-side=&gt;'left',-anchor=&gt;'w',-padx=&gt;1,-pady=&gt;1,-fill=&gt;'x',-expand=&gt;1);
  $f2_file_btn=$f_frame_top0-&gt;Button(-text=&gt;"...", -height=&gt;1, -width=&gt;2, -command=&gt; [\&amp;file_search,$tab2,$f2_entry,"TXT"])-&gt;pack(-side=&gt;'left',-anchor=&gt;'w',-padx=&gt;1,-pady=&gt;1);
  
  $f3_label=$f_frame_top1-&gt;Label(-text=&gt;"Number",-font=&gt;[-family=&gt;'MS Sans Serif',-size=&gt;9,-weight=&gt;'bold',-underline=&gt;0],-justify=&gt;'left')-&gt;pack(-side=&gt;'left',-anchor=&gt;'w',-padx=&gt;1,-pady=&gt;1,);
  $f3_entry=$f_frame_top1-&gt;Text(-width=&gt;10,-height=&gt;10,-wrap=&gt;'word',-state=&gt;"normal")-&gt;pack(-side=&gt;'left',-anchor=&gt;'w',-padx=&gt;1,-pady=&gt;1,-fill=&gt;'x',-expand=&gt;1);
  
  
  $but1_close=$f_frame_bot-&gt;Button(-text=&gt;"Close",-command=&gt;sub {destroy $mw}) -&gt;pack(-side=&gt;"right",-anchor=&gt;'e',-padx=&gt;1,-pady=&gt;1);
  $but1_exe=$f_frame_bot-&gt;Button(-text=&gt;"Run",-command=&gt;[\&amp;fablot_fusesort,$f2_entry,$f3_entry] ) -&gt;pack(-side=&gt;"right",-anchor=&gt;'e',-padx=&gt;1,-pady=&gt;1);
  
  sub fablot_fusesort{
       my $file1 = shift -&gt; get();
       my $number = shift -&gt;get();
  }
  </code></pre>
  
  <p>i want to get the number user enter in Text (the 22,23,24,25,26) to process in my subroutine but i not able to get it from shift -> get(). Any way i can get all the number user enter in the Text Widget? Thanks for helping </p>