use Text::Sprintf::Named;
my $formatter = Text::Sprintf::Named->new(
    {fmt => "Hello %(name)s! Today is %(day)s!"}
);

$formatter->format({args => {'name' => "John", 'day' => "Thursday"}});