#!/usr/bin/perl
use Tk;
my $mw = MainWindow->new;
$frame=$mw->Frame()->pack;
foreach $i (0..4)
    {
      $kleiner[$i]=$frame->Frame(-width=>"5", -borderwidth => 5, -relief => ridge)->pack(-side=>left);
      $knopf1= $kleiner[$i]->Button(-text =>1, -command => [\&breite_anpassen, 1, $i])->pack(-side=>left);
      $knopf1= $kleiner[$i]->Button(-text =>2, -command => [\&breite_anpassen, 0, $i])->pack(-side=>left);
}

MainLoop;

sub breite_anpassen
{
  my ($a, $j) = @_;
  if ($a ==1)
  {
    $kleiner[$j]->configure(-width => 20);
  }
  else
  {
    $kleiner[$j]->configure(-width => 5);
  }
}