my @list = map {bless [0..1]} 0..1000000;
warn  "ok. sleeping\n";
system "COLUMNS=1000 ps auxf | grep benchmark";