$\ = "\n";
for $a (1, "1") {
    print $a | " $a";
}