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