Select Code to Download

my $pdl1 = pdl (values(%{$database[0]}));
...
      $angles[$_] = (180/3.1415926)*acos($d);
}