[0+$1,$2,0+$3,0+$4,0+$5,0+$6]

##</code><code>##

#!/usr/bin/perl
use strict;

my @foo = (0..100000);
foreach my $f (@foo) {
  # comment/uncomment the next line to change behaviors
  $f = '' . $f;
}
sleep(10);
exit(0);