Draw hexagons in Perl