my $foo = 0.30;
my $bar = sprintf "%2.2i%%", $foo * 100;