use strict;
use warnings;

package XXX;

sub YYY {
    my ($x) = @_;
    print "hi there $x\n";
}

package main;

my $str = 'XXX';
my $str1 = 'YYY';

{
    no strict "refs";
    &{"${str}::${str1}"}(10);
}