As odd as this may seem, it nevertheless works:

sprintf($_[0], @_[1..$#_])
[download]

...or...

sprintf(shift, @_)
[download]

perlsub explains prototypes, and that's what's going on here. You can see the prototype for sprintf like this:

perl -E 'say prototype(q{CORE::sprintf})'
$@
[download]