for (@sys{keys %sys}) { 
      chomp; # defaut $_ paßt so
      s/\t/ /g; # und hier auch
      s/\s+/ /g;
}

@stat{qw/ProcUser ProcNice ProcSystem ProcIdle ProcIOWait/} = split /\s+/, $1;

@stat{qw/PageIn PageOut/} = ($1, $2);