%my ($x) = @_; %= $x->{'number'};