elsif ( $cntr > 2 ) {
         for (@p) {
....