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