@load = split (" ", `cat /proc/loadavg`); # Get loads
@load = map {substr $_,0,1} @load; # Convert to first digit
$#load =2; # Truncate array include only loads