foreach (@tcpstatus) {
    while (/\b01\s/) {
        push(@tcpalive,$_);
        last;
    }
}

##</code><code>##

@tcpalive = grep { /\b01\s/ } @tcpstatus;