sleep is often implemented by alarm, not by counting down. You can implement your own sleep that would count down, though. The naive implementation might be a bit imprecise:
sub mysleep {
my $seconds = shift;
while ($seconds) {
print $seconds--, "\n";
sleep 1;
}
}
mysleep(5);