($=,@$_)=glob<>for@n=1..<>;print"@{[map shift@$_,@n]} "for 0..$<