>perl -wMstrict -le
"use 5.014;
 ;;
 package Foo {
   sub bar_baz { print 'i am bar_bazing! ', @_; }
   }
 ;;
 my $x = 'baz';
 Foo->can(qq{bar_$x})->('Hooray!');
"
i am bar_bazing! Hooray!