$file='a.csv';
open (a,$file) || die ("couldnt open file");
while ($line=<a>){
   @array=split(/,/,$line);
   @array1=split(/\n/,$array[1]);
   @array2=sort {$a <=> $b}(@array1);
   print "@array2";
}