Help for this page
10 15 20 10 10 10
10 10 20 10 15 10
#!/usr/bin/perl -w use strict; ... $columns[$a] -= $height[1]; } print Dumper \@distribution;