foreach my $lev( @$levels ) {
    push @EXPORT_OK, $lev->[1]; # set up the allowable exports
    no strict 'refs';
    *{'Alex::Log::' . $lev->[1]} = sub {
      _doLog(@$lev, @_);
    };
  }