open(FH,"abc1") or die "not open";

while(<FH>) {

my($val1,$val2) = split(/,/,$_);

push @record,[$val1,$val2];

}

close(FH);

my @sorted = sort {$a->[0] <=> $b->[0]} @record;

foreach my $rec (@sorted) {

print "$rec->[0],$rec->[1]";

}