foreach $rtr_diag(@diaglist) {
    next if  ($rtr_diag =~ m/Clock|Switch|Power|Processor/);
    push @{$slots{$_}}, $rtr_diag;
}