#!/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);