use Text::Table;
my $tb = Text::Table->new(qw(Keys Values)); # column headers
for my $k (keys %hash) {
   $tb->add($k, $hash{$k})
}
print $tb;