my $order = 0; 
sub OrderOn  { $order = 1 }
sub OrderOff { $order = 0 }
sub Unique   {
  if ( $order == 0 ) { bla bla bla }
  if ( $order == 1 ) { bla bla bla }
}