if(/(\S+)\s+(\d+)/) { $mylist{$1} = $2; }