foreach my $pair ( [9,5],[0,3],[6,8],[8,3] ) {
  my ($a, $b) = @$pair;
  my $min = ($a < $b) ? \$a : \$b;
  # do whatever with the minimum ...
  $$min += 2;
  # changes are then reflected in $a or $b
  print "$a ; $b\n";
}