you could use sprintf:

my $percent = sprintf ("$.2f",100*$amount / $length);
[download]

that way the variable $percent contains the rounded result