Select Code to Download

foreach (@tcpstatus) {
    while (/\b01\s/) {
...
        last;
    }
}

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