gistfile1.txt

$ ps auwx | head -1
USER              PID  %CPU %MEM      VSZ    RSS   TT  STAT STARTED      TIME COMMAND
$ ps auwx | grep perl
schwern          4311   0.0  0.0  2442000    620 s000  S+    3:30PM   0:00.00 grep perl
schwern          4309   0.1  1.0  2515688  80204 s001  S     3:30PM   0:00.14 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  sub foo {}  foo();  sleep 9999
schwern          4301   0.0  1.0  2525552  88052 s001  S     3:30PM   0:00.14 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  sub foo {}  foo(@list);  sleep 9999
schwern          4304   0.0  1.0  2525928  80232 s001  S     3:30PM   0:00.47 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  sub foo {}  print {$fh} @list;  sleep 9999
schwern          4336   0.0  1.0  2517736  80236 s001  S     3:35PM   0:00.47 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  sub foo {}  print {$fh} @list, "foo";  sleep 9999