And some more obfuscated ways listed in this thread - Including my own attempt at obscurity ...

sub a{$_=int$_[0]*10**$_[1]+.5;s;(.{$_[1]})$;\.$1;;chop if substr($_,-
+1)eq'.';return$_};
[download]

... Although I would not use it in production code myself :-)