#!/usr/bin/perl -w
use strict;
use Tk;

my @arr = ( 1..500 );
my $maincolor = 'red';
my $mw = MainWindow->new;
$mw->minsize( qw(250 200) );    #x y
$mw->configure( -title => 'PROGRAM', -background => $maincolor );

my $frame_6 =
 $mw->Frame( -borderwidth => 3, -background => $maincolor )
 ->pack( -side => 'top', -fill => 'x' );

$frame_6->Label( -text => 'Scroll', -background => 'yellow', )
 ->pack( -side => 'left' );

my $scroll = $mw->Scrolled(
   "Text",
   -scrollbars => 'e',
   -font       => 'normal',
   -width      => 10,
   -height     => 10,
)->pack;

&loadarray( @arr );

MainLoop;

sub loadarray{
  my @array_in = @_;
  
   foreach my $element(@array_in){
       $scroll->insert('end', "$element\n");   
    }
}
[download]

Thank you very much for your help. This makes me wonder another thing: Suppose that values have been entered to the scroll manually is there a way to get them out as an array?

#!/usr/bin/perl -w 

use strict; 
use Tk; 

my @array=(100, 200, 300, 400 , 500); 
    
my $maincolor='red'; 

my $mw = MainWindow->new; 
$mw->minsize(qw(250 200)); #x y 
$mw->configure(-title=>'PROGRAM', -background=>$maincolor); 

my $frame_6=$mw->Frame(-borderwidth => 3, -background => $maincolor)->
+pack( -side=>'top', -fill=>'x'); 
$frame_6->Label(-text => 'Scroll', -background=>'yellow',)->pack(-side
+ =>'left'); 
    
my $scroll=$mw->Scrolled("Text", -scrollbars => 'e', -font => 'normal'
+, -width => 10, -height => 10,)->pack; 

for(0..scalar(@array)-1){
  $scroll->insert($_,$array[$_]);
}
    
MainLoop;
[download]

Granted it's possible to prepopulate the Tk::Text widget as zentara has shown.

My thoughts are that perhaps you should be using a scrolled Tk::Listbox object, which has a tied interface that you can use with your @arr, if you want changes to @arr to appear in the box automagically.

The scroll is actually an scrolled entry box. I would like to get the values out of the scrolled entrybox by like it is possible to get the value out of a normal entry box with the method "get". Is there any equivalent method that could be used to get the values out from the entry box?

I've never heard of a scrolled entry box, but maybe this is what you are looking for with a scrolled Listbox. It seems that you should read a book on Tk, these questions are very simple.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

# Main Window
my $mw = MainWindow->new;

# Frames
my $tf_frame = $mw->Frame->pack();
my $f_frame = $mw->Frame->pack();
my $bf_frame = $mw->Frame->pack();

# File Listing Label
$tf_frame->Label(-text => 
         "Select Items")
      ->pack(-side => 'left');


my @items = (1..500);
 
my $listbox = $f_frame->Scrolled("Listbox",
    -scrollbars => "oe",
    -selectmode => "extended")->pack;
$listbox->insert('end', @items);

$bf_frame->Button(-text => "Done",
    -command => sub { &print_names($listbox);
                     exit; 
                    })->pack;

MainLoop;


sub print_names{

    my $listbox = shift;
    my @selected_items = $listbox->curselection;
    for (@selected_items) {
        my $item = $listbox->get($_);
        print "$item\n";
    }
}
[download]

---

I'm not really a human, but I play one on earth. Cogito ergo sum a bum