my %pairs = map { chomp; 
    my($k,$v)=(split ' ', $_, 2)[0,1];
    defined $k ? ($k => $v // $default) : () } <DATA>;