open IN, "<", $file or die "Can't open file $file: $!";
my %data;
while(<IN>) {
    if(1 .. 2) {
        my($number) = /([\d.]+)\s*$/;
        $data{$.} = $number;
    }
}