...
while (<>) {
    print { $. % 2 ? $u : $g } $_;
}