foreach my $val (keys ${\( STUFF() ) } ){

  my $subroutine = ${\( STUFF() ) }->{ $val }; 
  my $value = $self->xml()->$subroutine();

}