my (@values1,@val1,@values2,@val2); while () { ... #### my (@values1,@val1,@values2,@val2); while () { if ( $_ =~ /PING/ ){ @values1 = split ; @val1 = split(/\(/,$values1[3]); $val1[1] =~ s/\)//; next; } ...