Select Code to Download

sub go
{
...
        &print_array();
    }
}

$start_button =$top->Button(-text => "Start the Process", -foreground 
+=>"red", -command => sub{go()});