using string as module

[Patton, Billy N]

I currently have something like this
use MyFoo::ABCBar;
use MyFoo::DEFBar;
use MyFoo::HIJBar;
my $fooABC = MyFoo::ABCBar->new();
…

What I would like to do is 

foreach $pgm ( ‘ABC’ , ‘DEF’ , ‘HIJ’) {
  my $foo = MyFoo::{$pgm}Bar->new;
  …
}

This gives me an error.
What is the correct syntax?