Array Perl

@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;
}