my $outcome = shift;

my %h = map { $_ => 10 * int ( ( $_ + 4 ) /10 ) } 8 .. 93;
@h{1 .. 3}    = (0)  x 3;
@h{4 .. 7}    = (5)  x 5;
@h{94 .. 97}  = (95) x 4;
@h{98 .. 100} = (99) x 3;

print defined $h{$outcome} ? sprintf "%02d\n", $h{$outcome} : 'ERROR';