my @auth_methods = ('Wireless::Auth::Wisc', 'Wireless::Auth::CAE', 'Wireless::Auth::NIS');
foreach my $auth (@auth_methods) {
  my $rv = $auth::authorize($user, $pass);
  if($rv) { ... }
}