open(my $filehandle, '<', $filename)
  or die "error opening $filename: $!";

my @pairs = 
  sort { $$a[0] <=> $$b[1] }
  map { chomp; [ split /\s*,\s*/ ] }
  grep { /\S/ } # skip empty lines
  <$filehandle>;