sub dec
{
    $foo++;     # not allowed because $foo not declared
}