my %data;
($data{$_}) = <IN> =~ m/(\d+\.\d+)\s*$/ for 1 .. 2;