-- eval print join "$/UNION ALL$/", map "SELECT $_ as x", 1..100;