$a[<>=~$",$<-$`.$'*2]=$_.$/for A..C;print@a