my $bar = sprintf "%2.0f%%", $foo * 100;