@names = (Cindy, Carol, Sherry, Tom, Jessica, Scott);@names = reverse @names;print "@names\n";@numbers = reverse @numbers;print "@numbers\n";$names = reverse @names;print "$names\n";sub sortNumbers(){ $a <=> $b;}