multiple folding in code

[stackware]

Hi,
When i write this code :

my ($i);
for ($i = 0; $i <= 5; $i++) {

$next;

}
the folding appears in the left margin. It's ok.
if these instructions are in a sub, no more folding...

Would it be possible to activate "multiple" folding?

Thanks by advance :)