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"; } }
In reply to Re: split hash into two columns
by sulfericacid
in thread split hash into two columns
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |