Select Code to Download

use strict;
use warnings;
use diagnostics;
...
print "1/2 list\n";
print $number . " concatenate\n";
print $number , " list\n";

output of say
0,5
0,5
...
0,5 list
1/2 concatenate
1/2 list