$a[$<-<>]=$_.$/for A..C;print@a