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