#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::GraphItems;

my $oo = { 1 => 'hallo', 2 => 'test', 3 => 'perl' };

my $mw = new MainWindow(-title => "Robot Control GUI", -height => 600, -width => 800);

  my $can = $mw->Canvas(-relief  => "raised", -borderwidth => 2, -width => 225, height => 150)->place(-x => 5, -y => 180); # ==
  foreach (sort keys %{$oo})
  {
     my $node = Tk::GraphItems::TextBox->new(canvas => $can, text => 'test', x => 50, y => 50);
  }

MainLoop;