Since your decimals seem to always have exactly two fractional digits, it might suffice to "translate" everything into an 100x integer space. So you might write

($open, $high, $low, $close) = map { s/\.//; $_; } @arr[3, 4, 5, 6];
[download]

and forget about the *100 multipliers in the following code.

Of course, you'll have to add back the 'decimal dots' when outputting the results.

---
Krambambuli