in reply to Re^4: useless use of sort???
in thread useless use of sort???

  1. Why are you separating statements with commas instead of semi-colons?
  2. Are you sure you want to remove 'id' and 'wa' once before the first print, and a second time for the second print?
  3. Why are you pushing $, on the array?
  4. Are you sure you want to print even numbers to '/var/adm/sa/cpu.out'?
  5. What's with the local $,, and then putting it in a list you're printing to a file?
  6. What's the purpose of @ar2?
  7. What happened when you tried?
  8. What does the manual page say about sort, and where the unsorted list is?
  9. Do you know any other function where the argument is on the LHS of the assignment, and where the result is put into its last argument?
  10. Why are you using bareword filehandles instead of lexical variables?

In Section Seekers of Perl Wisdom