Select Code to Download

my $self = shift;
foreach my $key (keys(%{$self}))
  { delete $self->{$key}; }

package Celebrity;
use strict;
...
    $self->{'Hours_on_the_job') = 0;
    }
  }