map{/(\S+)\s+([\d.]*)/;$2?($a{$1}=$2):($a{$1}=999)}<FILE>;
map{push(@result,$a{$_})}@order;