Unit tests for assignment val/ref Perl