sub new {
   my $class=shift;
   my $id;
   if (@_ % 2) {
      $id=shift;
   }
   my %args=@_;
   #....
}