refactoring to use Perl Best Practices getters/setters