$a=1682;printf'A%-2d%5dmm x%5dmm
',$_,$a/2,$a/=1.414for 0..10