my %pairs = map { chomp; 
    map @{ ([], [@$_, $default], $_)[scalar @$_] }, 
    [split ' ', $_, 2] } <DATA>;