do {
    print "@ARGV\n";
} while( nextPermut­e(@ARGV) );

##</code><code>##

      return if $i == -1;

##</code><code>##

      if(  $i == -1  ) {
         $first= 1;
         return;
      }