map{$_[$_]=$_ for$_*5..$_*5+$`}<>!~$"..$';$_&&print$_,$/for@_