Use use strict; use warnings;. At the very least $lb = $f1->scrolled(...); my $lb ... doesn't look right. Also, the trailing } does not match an open bracket anywhere.

When posting a problem like this try to reduce the code to a minimum internally consistent sample that is runable. THe sample you have posted refers to many variables that are not given anywhere.