perl -le'print map $_ x=2, ("a" .. "f")'