sub verify{
  my $ref = pop;
  my $optional = pop; #becomes undef if only one param
}