Select Code to Download

  my @height = qw/ 10 15 25 30 10 13 /;

#!/usr/bin/perl -w
use strict;
...
    $columns[$a] -= $height[1];
}
print Dumper \@distribution;