Select Code to Download

my $scrollbar = $mw->Scrollbar(-orient => 'vertical);
my $raListboxes = [ $mw->Listbox(), $mw->Listbox() ];

sub scrollListboxes
{
...
        $listbox->yviewMoveto($top);
    }
}

foreach my $listbox ( @$raListboxes )
{
...
           $listbox->yview(@_);
       }
   });