perl OO 
scoping
