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

use Tk;

my @data = qw(null eins zwei drei);
my @data_2 = qw(nil one two three);

my @display;

my $mw = MainWindow->new;

for my $i ( 1..scalar(@data) ) {

    push @display, $mw->Label(
        -textvariable=>\$data[$i],
    ) ->pack;
}

my $toggle_button = $mw->Button(
    -text=>"English!",
    -command=>sub{ for (my $i =1; $i<scalar(@data); $i++) {$data[$i] = $data_2[$i]} },
    )->pack;
    
MainLoop;