# Configure the Scrollbar to scroll each Listbox
$scroll->configure(
    -command => sub {
                  my $delta = shift;
                  foreach my $list (@$listboxes) {
                      $list->yview('scroll', $delta, 'units');
                }
    }
);