Yes, but you still use sprintf ...

my@b=map{eval{$_=int$_*10**2;s;(..)$;\.$1;;return$_}}@a;
[download]

 

Ooohhh, Rob no beer function well without!