my @a = ("1.10", "2.22");
print STDOUT &a($_, 1) for @a;

sub a{$_=int$_[0]*10**$_[1];s;(.{$_[1]})$;\.$1;;return$_};