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;
}