Mega Code Archive

 

Categories / Perl / Language Basics

 

@a1 = $v1 1 10

$v1 = 0; @a1 = $v1 && 1 .. 10; print join (" ", @a1);