my @Interests = ( 
  'off-piste ski-ing, and teaching others to learn to ski',
  'writing perl to automate, integrate or migrate',
  'improving processes, creating procedures, reducing "human error"'
);            

# qf. Larry Wall http://threevirtues.com
my %Virtues = ( 
   'laziness'   => 'make the computer do the work, instead of doing it yourself', 
   'impatience' => 'make sure the computer works efficiently', 
   'hubris'     => 'write code that others will enjoy reading and maintaining', 

);

my @Roles = ( 'Innovator', 'Teacher', 'Mentor', 'Translator', 'Communicator', 'Last Resort' );