Select Code to Download

my @keys = keys %{$database[0]};  #optionally use sort keys
my $pdl1 = pdl (@{$database[0]}{@keys});
...
      $d = dotproduct->sclr();
      $angles[$_] = (180/3.1415926)*acos($d);
}