package Foo;
    use strict;
    use fields qw(unused _foo);
    ...