sub routine {
    my $static if 0;
    $static= 'value'   if  ! defined $static;
    # ...
}