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