my %to_num = map { $_[0]=> 10**$_[1] },
         (qw|pico nano micro milli centi hecto kilo mega giga tera| 
          Z
         (-12, {$_+3}... -3,-2,2,3,{$_+3}... 12)) ;