use feature qw( say ); my @s = 0 || scalar('a','b','c'); my @l = 0 || ('a','b','c'); say for @s; say "---"; say for @l;