Select Code to Download

#!/usr/bin/perl -w
use strict;
...
9841    0.052
9842    0.091

my @values;
while (<DATA>)
...
}

print "@values";   #prints: 0.007 0.004 0.002