@p=0..9;@p[1..$_,0]=@p,print$p[0]for<>=~/./g