my $screen = $top -> Label(
    -textvariable => "$number",
    -background => 'white',
    -width => 30,
    -borderwidth => 2,
    -relief => 'sunken',
) -> pack(-pady => 5);