print "Hello %(name)s! Today is %(day)s!" % ( 'name' : 1, 'day' : 2 );

##</code><code>##

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"}});