use warnings;
use strict;

use Tk;

my %w;
my %hash = ( 'key1' => 'value1', 'key2' => 'value2' );

$w{mw} = MainWindow->new;
$w{text} = $w{mw}->Text->pack;
$w{text}->insert('end', %hash);
$w{text}->insert('end', "\n\n" );

while ( my ($key, $value) = each %hash ){
    $w{text}->insert('end', "$key => $value\n");
}

MainLoop;