sub select_fields  { @_[@{shift(@_)}] }
sub head           { $_[0] }     # Shortcut for "select_fields [0]," 

my ($conn, $sess, $job) = select_fields [2..4],  # Extract totals.
                          split /\s+/,           # Split into fields.
                          head                   # List to scalar.
                          grep { /^\s*Total/ }   # Extract total line.
                          `sysutil`;             # Get data.