13 lines
277 B
Perl
13 lines
277 B
Perl
|
@names = (Tom, Tom, James, Pete, Cindy, Carol);
|
||
|
|
@names = sort @names;
|
||
|
|
print "@names\n";
|
||
|
|
|
||
|
|
@numbers = (12,45,36,14,258,1,2,4,);
|
||
|
|
@numbers = sort @numbers;
|
||
|
|
print "@numbers\n";
|
||
|
|
|
||
|
|
@numbers = sort sortNumbers @numbers;
|
||
|
|
print "@numbers\n";
|
||
|
|
sub sortNumbers(){
|
||
|
|
$a <=> $b;
|
||
|
|
}
|