use strict;
use warnings;

my @data;
while (<DATA>) {
   chomp;
   push @data, [ split /\s+|,/ ];
}

@data = sort {  $a->[0] cmp $b->[0]
             || $a->[1] <=> $b->[1]
             }
        @data;

my %order;
my $last_f;
my $last_x;
for (@data) {
   if (!defined($last_f) || $last_f ne $_->[0]) {
      $order{$_->[0]}{$_->[1]} = +1;
      $last_f = $_->[0];
      $last_x = $_->[1];
   }

   if ($last_x ne $_->[1]) {
      $order{$_->[0]}{$_->[1]} = -$order{$last_f}{$last_x};
      $last_x = $_->[1];
   }
}

@data = sort {    $a->[0] cmp $b->[0]
             ||   $a->[1] <=> $b->[1]
             || ( $a->[2] <=> $b->[2] ) * $order{$a->[0]}{$a->[1]}
             }
        @data;

print("$_->[0] $_->[1],$_->[2]\n") for @data;

__DATA__
...