my $doomsday_weapon = Weapon::Doomsday->new;
my $method = 'destroy_the_world_with';
my @args = qw(WMD, PHP, NSA);
eval("\$doomsday_weapon->$method(" . join(', ', @args) .")");