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