If it's expecting references, maybe my $ang = vecang(\@p,\@q);?
the forward slashes pass the arrays by reference. see perlref and perlreftut for details.