my %hash;
@hash{ qw[-0.9940000000 0.1190000000 -0.0355000000] } = 
    qw[ -0.993999999999999999 -0.118999999999999999 -0.035499999999999999 ];
    
print Dumper \%hash;

$VAR1 = {
          '0.1190000000' => '-0.118999999999999999',
          '-0.9940000000' => '-0.993999999999999999',
          '-0.0355000000' => '-0.035499999999999999'
        };

my @array = qw[ 0.1190000000  -0.0355000000];

my @new = @hash{ @array };

print @new;
-0.118999999999999999 -0.035499999999999999