Here is my attempt without using arrays. Note this doesn't break them into two columns (it sort of almost does, it prints the first half and then the second half), but it's the best I could do. Maybe you could figure out how to hack it to do what you want. It'd actually be interesting to see if someone can fix my almost functional code.
my $half = scalar keys %hash;
$half = $half / 2 + 1;
my $cnt = 0;
foreach (keys %hash)
{
$cnt++;
my $key = $_;
if ($cnt <= $half)
{
print "$key => $hash{$key}\n";
}
else
{
print "\t$key => $hash{$key}\n";
}
}
"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"
sulfericacid