#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @height      = qw/ 10 15 25 30 10 13 /;
my @columns     = ($height[0],0,0,$height[-1]);
my $curr_height = 0;

# set this unreasonably high to ensure that subsequent
# heights will be lower
$curr_height    += $_ foreach @height;
my @distribution;

for my $a (0..1) {
    $columns[$a] += $height[1];
    for my $b (0..2) {
        $columns[$b] += $height[2];
        for my $c (1..3) {
            $columns[$c] += $height[3];
            for my $d (2..3) {
                $columns[$d] += $height[4];

                my $this_height = ( sort @columns )[-1];
                my $valid_dist;
                foreach ( @columns ) {
                    $valid_dist = $_;
                    last if ! $valid_dist;
                }
                if ( $valid_dist and $this_height < $curr_height ) {
                    $curr_height = $this_height;
                    @distribution = ([1],[],[],[6]);
                    push @{$distribution[$a]}, 2;
                    push @{$distribution[$b]}, 3;
                    push @{$distribution[$c]}, 4;
                    push @{$distribution[$d]}, 5;
                }
                $columns[$d] -= $height[4];
            }
            $columns[$c] -= $height[3];
        }
        $columns[$b] -= $height[2];
    }
    $columns[$a] -= $height[1];
}
print Dumper \@distribution;