#!/usr/bin/perl
use strict;
use warnings;
use Tk;

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

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