my $foo = sprintf "%.0f", rand(100);