http://www.perlmonks.org?node_id=610336


in reply to dynamic website, putting data into right tablefield's

Try reversing the nested foreach loops. Go through the products first (rows) and then for each product go through the sups (columms). 
perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'

[download]

In Section Seekers of Perl Wisdom