$/=\1;@;=0..9;@;[1..$_,!print$;[$_]]=@;for<>