printf"%5d. ", ++$cnt;
  print"@list1\n"; # Display permutations

  } while( NextPermute( @list1 ) );

}