<>=~$";print join$",grep$i++<$',glob<>