{
   my %value_for;
   sub set_values {
       my ( $key, $value ) = shift;
       $value_for{ $key } = $value;
   }
   sub function {
        # ...
        my $special_value = $value_for{specialness};
        # ...
   }
}