package Class_A;

sub Meth_U { ... }
sub Meth_V { ... }
sub Meth_W { ... }

sub Dump_SV {
   my $self = shift;

   foreach my $a qw( U V W ) {
      my $method = "Meth_" . $a;

      # Call the method whose name is kept in a variable.
      $self->$method->();   # DOES NOT WORK
   }
}