1. Write a Perl script to sort the following array of numbers in   ascending and descending order.
      my @numbers = ( 22, 88, 33, 55, 11);
2. Note: For descending order, use the below code for comparison.
      sort {$b<=>$a} @numbers;
3. Print the sorted result using 'while loop' and special variable $_.
4. Save and execute the program.
5. Now check the result.