sub a {
   return sprintf("%s", $_[0]);
 }
[download]

Calling sprintf() while legal, is not necessary. printing a string to another hunk of memory and returning that is an unnecessary step. There are some uses of sprintf() in Perl, but they are very, very rare.

return $_[0];  
return "this is string $some_var";
[download]