my %data = 
  ('0.001' => '70.1',
   '0.34'  => '75.3',
   '0.456' => '76.5',
   '0.521' => '87.4');

##</code><code>##

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;