foreach $ppn {
   foreach $ppn {
      # do stuff
   }
}