transforming-a-perl-array-using-map.tt
update
in progress