sub ASort {

        my ($aref, $index)=@_;
        for ($x=scalar(@$aref);$x>0;$x--){
                for ($j=0;$j<$x-1;$j++){
                        if ($$aref[$j][$index]>$$aref[$j+1][$index]){

                                @temp=@$aref[$j+1];
                                @$aref[$j+1] = @$aref[$j];
                                @$aref[$j] = @temp;
                        }
                }
        }
}


#Sort by uptime
ASort(\@data, 8);

#Sort by 3rd section of interface cx/x/UX
ASort(\@data, 12);

#Sort by 2nd section of interface cx/X/ux
ASort(\@data, 11);

#Sort by 1st section of interface CX/x/ux
ASort(\@data, 11);