shift @{$tochan->{pingtime}} if @{$tochan->{pingtime}} > 6;
# cope with a missed ping, this means you must set the pingint large enough
shift @{$tochan->{pingtime}} if @{$tochan->{pingtime}} > 6;
# cope with a missed ping, this means you must set the pingint large enough