$$_=++$%for glob<>;/$/,print$
$`,$/for<>