use 5.010;
use strict;
use warnings;

sub foo { say "This is foo <@_>" }
sub bar { say "This is bar <@_>" }

sub call {
    my $sub = shift;
    goto &$sub;
}

$_ = "foo 123 foo bar bar 456";
while (/(\w+) (\w+)/g) {
    call $1, $2;
}

__END__
This is foo <123>
This is foo <bar>
This is bar <456>