112 104.35 141.94 115 22.34 29.13 while () { ($rub,$res) = split (/\s+/,$_); push @value, "$res\n"; } #### 1 59 49 0.0 0 100.0 0.0 1 60 50 0.0 0 100.0 0.0 using code supplied in first post