my @foo = (0..100000);
my @t;
foreach my $f (@foo) {
  # comment/uncomment the next lines to change behaviors
  $f.="";
  push(@t, $f+0);
}
system("ps auxwwww | grep perl");
sleep(10);
exit(0);