array arrangement by one column with perl or shell（矩阵根据某列排序（shell和perl））

#Perl
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my $colnum;
my $n=0;
my $rownum=0;
my @list;

open(RF,"segmentationfile.txt") || die $!;
while(my $line=<RF>){
    chomp $line;
    my @arr=split("\t",$line);
    $colnum=@arr;
    for my $i (0..$colnum-1){
        $list[$rownum][$i]=$arr[$i]
    }
    $rownum=$rownum+1;
}
close(RF);

my @data=sort{ $a ->[1] cmp $b -> [1] } @list;

open(WF,">paixu_seg.txt") || die $!;
for my $i (0..$rownum-1){
    for my $j (0..$colnum-1){
        if ($j<$colnum-1){
            print WF $data[$i][$j]."\t";
        }else{
            print WF $data[$i][$j]."\n";
        }
    }
}
close(WF);


#shell

sort -k 2 -n  segmentationfile.txt | perl -e 'while(<>){chomp;@arr=split("\t",$_);if($arr[1]=~m/^[^\D]/){print $_."\n"}}' > 1.txt
sort -k 2 -n  segmentationfile.txt | perl -e 'while(<>){chomp;@arr=split("\t",$_);if($arr[1]=~m/^\D/){print $_."\n"}}' >> 1.txt
mv 1.txt segmentationfile_sort.txt