Are you looking for one Entry per value in the hash? If so something like this should work:

my $pane = $mw->Scrolled('Pane',
    -height => 150,
    -width => 200,
    -scrollbars => 'osoe',
)->pack;

foreach my $key (keys %hash) {
    my $frame = $pane->Frame->pack(-side => 'top', -fill => 'x');
    $entries{$key} = $frame->Entry->pack(-side => 'right');
    $entries{$key}->insert('end', $hash{$key});
    $frame->Label(-text => "$key")->pack;
}
[download]

I use the scrolled pane so that a large number of entries won't force Tk to expand it's window beyond the screen size.