if( ($columns[0]!~/^[[:digit:]]+$/) || ($columns[2]!~/^[[:digit:]]+$/) ) {
#stop the program here
}