$#$_++for<>!~$",glob<>;print$_,$",@$_.$/for 1..$'