@$row = split(/,/, $line );
    push @$sheet2 , $row;
}

foreach my $row ( sort {$a->[0] cmp $b->[0] || $a->[1] cmp $b->[1]}  @$sheet2 )
{
    *print hanw join (',', @$row ),"\n";
}