Perl 排序

[oracle@june2 2]$ cat 1.pl 
my @elements = sort qw(hydrogen helium lithium athton);
print "@elements is @elementsn";
[oracle@june2 2]$ perl 1.pl 
@elements is athton helium hydrogen lithium

---去除uid

[oracle@june2 2]$ cat 3.pl 
open (FILE,"<","/etc/passwd") || die "cannot open the file:$!n";  
my @temp=<FILE>;  
foreach  (@temp) {  
my $var =  (split /:/,"$_")[2];
print "$varn";
}  
close FILE; 
[oracle@june2 2]$ perl 3.pl 
0
1
2
3
4
5
6
7
8
9