Select Code to Download

$,=", "; #change list delimiter for fancy printing
print @evens;
print "\n"; #newline
$,=""; #change list delimiter back before it is a problem

{
local $,=", ";
print @evens;
print "\n"; #newline
}