foreach (@currentLine[3 .. 11]) { printf ("%.*f", $currentLine[2], $_/(10 ** $currentLine[2]) }