@a[NR]=$a; @b[NR]=$b; emit | "tr \[a-z\] \[A-Z\]", @a
