use strict;

my ((shift @ARGV) ? $foo : $bar) = "Hello";

# Can't declare null operation in "my" at trinary.pl...