$/=words;put [$1*2,$1*2+$0-2,1 xx$0-2]