@array = subr();
foreach(@array){print $_};

sub subr{
    my $mw = new MainWindow;
    my $frame = $mw -> Frame() -> pack();
    my $ok_but = $frame -> Button(-text=>"Ok", -command =>\&subr2) -> pack();
    MainLoop;
    
    sub subr2{
        @array = (1, 2, 3);
        $mw -> destroy();
        return @array;
    }
}