sub passcheck2 {
  my ($u, $p) = splice @_, 2;
  "password ok" eq passcheck( $u, $p, @_ ) and
  "password ok" eq passcheck( $u, reverse($p), @_ )
}